home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / hires.s < prev    next >
Text File  |  1997-01-31  |  195KB  |  13,757 lines
  1.  
  2.  
  3.  
  4. CHEESEY equ 0
  5.  
  6. *************************************************
  7. * Stuff to do to get a C2P version:
  8. * Change copperlist
  9. * Change wall drawing
  10. * change floor drawing
  11. * change object drawing
  12. * change polygon drawing (ugh)
  13. * Write a palette generator program in AMOS
  14. * to provide a good 256 colour palette and
  15. * convert all graphics files specified
  16. * (possibly included in the game linker
  17. * program).
  18. * Possibly change the wall/floor/object
  19. * palettes to look nicer with more shades.
  20. * RE-implement stippling (if not present)
  21. * as it will look gorgeous now.
  22. *************************************************
  23.  
  24. ;MIDDLEX set 96
  25. ;RIGHTX set 191
  26. ;BOTTOMY set 160 
  27.  
  28. ;MIDDLEX set 96
  29. ;RIGHTX set 191
  30. ;BOTTOMY set 160
  31.  
  32. _break    macro
  33. ;    bkpt    \1
  34.     endm
  35.  
  36.  
  37. FILTER    macro
  38. ;    move.l    d0,-(sp)
  39. ;    move.l    #65000,d0
  40. ;.loop\@
  41. ;    bchg    #1,$bfe001
  42. ;    dbra    d0,.loop\@
  43. ;    move.l    (sp)+,d0
  44.     endm
  45.  
  46. BLACK    macro
  47.     move.w    #0,$dff180
  48.     endm
  49.  
  50. RED    macro
  51.     move.w    #$f00,$dff180
  52.     endm
  53.  
  54. FLASHER macro
  55. ;    movem.l    d1,-(sp)
  56. ;    move.w    #-1,d1
  57. ;
  58. ;loop3\@
  59. ;;    move.w    #\1,$dff180
  60. ;    nop
  61. ;    nop
  62. ;    move.w    #\2,$dff180
  63. ;    nop
  64. ;    nop
  65. ;    dbra    d1,loop3\@
  66.  
  67. ;    movem.l    (sp)+,d1
  68.  
  69.     endm
  70.  
  71. GREEN    macro
  72.     move.w    #$0f0,$dff180
  73.     endm
  74.  
  75. BLUE    macro
  76.     move.w    #$f,$dff180
  77.     endm
  78.  
  79. DataCacheOff macro
  80.     movem.l    a0-a6/d0-d7,-(sp)
  81.     move.l    4.w,a6
  82.     moveq    #0,d0
  83.     move.l    #%0000000100000000,d1
  84.     jsr    _LVOCacheControl(a6)
  85.     movem.l    (sp)+,a0-a6/d0-d7
  86.     endm
  87.  
  88. DataCacheOn macro
  89.     movem.l    a0-a6/d0-d7,-(sp)
  90.     move.l    4.w,a6
  91.     moveq    #-1,d0
  92.     move.l    #%0000000100000000,d1
  93.     jsr    _LVOCacheControl(a6)
  94.     movem.l    (sp)+,a0-a6/d0-d7
  95.     endm
  96.  
  97.     opt    P=68020
  98.  
  99.     include utils:sysinc/hardware/intbits.i
  100.  
  101. CD32VER equ 0
  102.  
  103. maxscrdiv EQU 8
  104. max3ddiv EQU 5
  105. playerheight EQU 12*1024
  106. playercrouched EQU 8*1024
  107. scrheight EQU 80
  108.  
  109. ; k/j/m
  110.  
  111. ; 4/8
  112. ; s/x
  113. ; b/n
  114.  
  115. midoffset EQU 104*4*40
  116.  
  117.  
  118.  SECTION Scrn,CODE
  119. OpenLib       equ -552
  120. CloseLib      equ -414
  121.  
  122. INTREQ        equ    $09C
  123. INTENA        equ    $09A
  124. INTENAR    equ    $01C
  125. DMACON        equ    $096
  126.  
  127. SERPER        equ    $032
  128. SERDATR    equ    $018
  129. SERDAT        equ    $030
  130. vhposr        equ $006    
  131. vhposrl    equ $007 
  132.  
  133. bltcon0    equ $40 
  134. bltcon1    equ $42
  135. bltcpt        equ $48
  136. bltbpt        equ $4c
  137. bltapt        equ $50
  138. spr0ctl    equ $142
  139. spr1ctl    equ $14a
  140. spr2ctl    equ $152
  141. spr3ctl    equ $15a
  142. spr4ctl    equ $162
  143. spr5ctl    equ $16a
  144. spr6ctl    equ $172
  145. spr7ctl    equ $17a
  146. spr0pos    equ $140
  147. spr1pos    equ $148
  148. spr2pos    equ $150
  149. spr3pos    equ $158
  150. spr4pos    equ $160
  151. spr5pos    equ $168
  152. spr6pos    equ $170
  153. spr7pos    equ $178
  154. bltdpt         equ $54
  155. bltafwm    equ $44
  156. bltalwm    equ $46
  157. bltsize         equ $58
  158. bltcmod         equ $60
  159. bltbmod         equ $62
  160. bltamod         equ $64
  161. bltdmod         equ $66
  162. diwstart        equ $8e         ; Screen hardware registers.
  163. diwstop         equ $90
  164. ddfstart        equ $92
  165. ddfstop         equ $94
  166. bplcon0         equ $100
  167. bplcon1         equ $102
  168. col0            equ $180
  169. col1            equ $182
  170. col2        equ $184
  171. col3        equ $186
  172. col4        equ $188
  173. col5        equ $18a
  174. col6        equ $18c
  175. col7        equ $18e
  176. col8            equ $190
  177. col9            equ $192
  178. col10           equ $194
  179. col11           equ $196
  180. col12           equ $198
  181. col13           equ $19a
  182. dmacon        equ $96
  183. dmaconr        equ $002
  184. intenar        equ $01c
  185. intena        equ $09a
  186. intreq        equ $09c
  187. intreqr        equ $01e
  188. intreqrl    equ $01f
  189. bpl1pth         equ $e0
  190. bpl1ptl         equ $e2
  191. bpl2pth        equ $e4
  192. bpl2ptl        equ $e6
  193. bpl3pth        equ $e8
  194. bpl3ptl        equ $ea
  195. bpl4pth        equ $ec
  196. bpl4ptl        equ $ee
  197. bpl5pth        equ $f0
  198. bpl5ptl        equ $f2
  199. bpl6pth        equ $f4
  200. bpl6ptl        equ $f6
  201. bpl7pth        equ $f8
  202. bpl7ptl        equ $fa
  203. bpl8pth        equ $fc
  204. bpl8ptl        equ $fe
  205. spr0pth        equ $120
  206. spr0ptl        equ $122
  207. spr1pth        equ $124
  208. spr1ptl        equ $126
  209. spr2pth        equ $128
  210. spr2ptl        equ $12a
  211. spr3pth        equ $12c
  212. spr3ptl        equ $12e
  213. spr4pth        equ $130
  214. spr4ptl        equ $132
  215. spr5pth        equ $134
  216. spr5ptl        equ $136
  217. spr6pth        equ $138
  218. spr6ptl        equ $13a
  219. spr7pth        equ $13c
  220. spr7ptl        equ $13e
  221. adkcon        equ   $09E
  222.  
  223.  
  224. ; move.l #length,d0
  225. ; moveq.l #2,d1    ; chipmem
  226. ; move.l 4.w,a6
  227. ; jsr allocmem(a6) = -198
  228.  
  229. ; tst.l d0
  230. ; beq.s ohbugger
  231. ; move.l d0,memaddr
  232.  
  233.  
  234. ; move.l 4.w,a6
  235. ; move.l memaddr,a1
  236. ; move.l #size,d0
  237. ; jsr freemem(a6) =-210
  238.  
  239.  
  240. ** This waits for the blitter to finish before allowing program
  241. ** execution to continue.
  242.  
  243.  
  244.  include "ab3:source_4000/protsetupdecode"
  245.  
  246.  
  247. SAVEREGS MACRO
  248.  movem.l d0-d7/a0-a6,-(a7)
  249.  ENDM
  250.  
  251. GETREGS MACRO
  252.  movem.l (a7)+,d0-d7/a0-a6
  253.  ENDM
  254.  
  255.  
  256. WB MACRO
  257. \@bf:
  258.  btst #6,dmaconr(a6)
  259.  bne.s \@bf
  260.  ENDM
  261.  
  262. WBa MACRO
  263. \@bf:
  264.  move.w #\2,$dff180
  265.  
  266.  btst #6,$bfe001
  267.  bne.s \@bf
  268. \@bz:
  269.  
  270.  move.w #$f0f,$dff180
  271.  
  272.  btst #6,$bfe001
  273.  beq.s \@bz
  274.  
  275.  ENDM
  276.  
  277. *Another version for when a6 <> dff000
  278.  
  279. WBSLOW MACRO
  280. \@bf:
  281.  btst #6,$dff000+dmaconr
  282.  bne.s \@bf
  283.  ENDM
  284.  
  285. WT MACRO
  286. \@bf:
  287.  btst #6,(a3)
  288.  bne.s \@bd
  289.  rts
  290. \@bd: 
  291.  btst #4,(a0)
  292.  beq.s \@bf
  293.  ENDM
  294.  
  295. WTNOT MACRO
  296. \@bf:
  297.  btst #6,(a3)
  298.  bne.s \@bd
  299.  rts
  300. \@bd: 
  301.  btst #4,(a0)
  302.  bne.s \@bf
  303.  ENDM
  304.  
  305. **
  306.  
  307.  include "ab3:source_4000/ProtectionProtection"
  308.  include "macros.i"
  309.  include "ab3:source_4000/defs.i"
  310.  
  311. wtclickk:
  312.  btst #6,$bfe001
  313.  bne.s wtclickk
  314.  
  315.  move.w (a0)+,LEVTOPLAY
  316.  
  317.  
  318.  jsr MakePatch
  319.  
  320. ;    FLASHER $0f0,$fff
  321.  
  322. ; PROTFCALC
  323. ; PROTGCALC
  324. ; PROTHCALC
  325. ; PROTICALC
  326. ; PROTKCALC
  327. ; PROTLCALC
  328. ; PROTMCALC
  329.  
  330.  
  331.  
  332.  move.l #$dff000,a6    ; NB V. IMPORTANT: A6=CUSTOM BASE
  333.  move.w intenar(a6),_storeint
  334.  and.w #$c000,_storeint
  335.  
  336.  move.w #13,SERPER(a6)    ;19200 baud, 8 bits, no parity
  337.  
  338.  
  339.  st GOURSEL
  340.  
  341.  move.l 4.w,a6
  342.  lea VBLANKInt(pc),a1
  343.  moveq #INTB_COPER,d0
  344.  jsr _LVOAddIntServer(a6)
  345.  
  346.     IFEQ CD32VER
  347.  move.l 4.w,a6
  348.  lea KEYInt(pc),a1
  349.  moveq #INTB_PORTS,d0
  350.  jsr _LVOAddIntServer(a6)
  351.     ENDC
  352.  
  353.  IFNE CD32VER
  354.  clr.b PLR1KEYS
  355.  clr.b PLR1PATH
  356.  clr.b PLR1MOUSE
  357.  st PLR1JOY
  358.  clr.b PLR2KEYS
  359.  clr.b PLR2PATH
  360.  clr.b PLR2MOUSE
  361.  st PLR2JOY
  362.  ELSE
  363.  st PLR1KEYS
  364.  clr.b PLR1PATH
  365.  clr.b PLR1MOUSE
  366.  clr.b PLR1JOY
  367.  st PLR2KEYS
  368.  clr.b PLR2PATH
  369.  clr.b PLR2MOUSE
  370.  clr.b PLR2JOY
  371.  ENDC
  372.  
  373.  PRSDO
  374.  
  375.  move.l #2,d1    
  376.  move.l #10240*2,d0
  377.  move.l 4.w,a6
  378.  jsr -198(a6)
  379.  move.l d0,TEXTSCRN
  380.  move.w d0,TSPTl
  381.  swap d0
  382.  move.w d0,TSPTh
  383.  
  384.  move.l #nullspr,d0
  385.  move.w d0,txs0l
  386.  move.w d0,txs1l
  387.  move.w d0,txs2l
  388.  move.w d0,txs3l
  389.  move.w d0,txs4l
  390.  move.w d0,txs5l
  391.  move.w d0,txs6l
  392.  move.w d0,txs7l
  393.  swap d0
  394.  move.w d0,txs0h
  395.  move.w d0,txs1h
  396.  move.w d0,txs2h
  397.  move.w d0,txs3h
  398.  move.w d0,txs4h
  399.  move.w d0,txs5h
  400.  move.w d0,txs6h
  401.  move.w d0,txs7h 
  402.  
  403.  move.l #0,d1    
  404.  move.l #140000,d0
  405.  move.l 4.w,a6
  406.  jsr -198(a6)
  407.  move.l d0,LEVELDATA
  408.  
  409.  move.l #0,d1
  410.  
  411.  ifeq CHEESEY    
  412.  move.l #320*256,d0
  413.  endc
  414.  
  415.  ifne CHEESEY
  416.  move.l #320*160,d0
  417.  endc
  418.  
  419.  move.l 4.w,a6
  420.  jsr -198(a6)
  421.  move.l d0,FASTBUFFER
  422.  
  423.  jsr START
  424.  
  425.  rts
  426.  
  427. FASTBUFFER: dc.l 0
  428.  
  429. _storeint
  430.     dc.w 0
  431.  
  432. * Load level into buffers.
  433.  clr.b doanything
  434.  clr.b dosounds
  435.  
  436. ; DRAW TEXT SCREEN
  437.  
  438. TWEENTEXT:
  439.  
  440.  move.l #LEVELTEXT,a0
  441.  move.w PLOPT,d0
  442.  muls #82*16,d0
  443.  add.l d0,a0
  444.  
  445.  move.w #14,d7
  446.  move.w #0,d0
  447. DOWNTEXT:
  448.  move.l TEXTSCRN,a1
  449.  jsr DRAWLINEOFTEXT
  450.  addq #1,d0
  451.  add.w #82,a0
  452.  dbra d7,DOWNTEXT
  453.  rts
  454.  
  455. FONTADDRS:
  456.  dc.l ENDFONT0,CHARWIDTHS0
  457.  dc.l ENDFONT1,CHARWIDTHS1
  458.  dc.l ENDFONT2,CHARWIDTHS2
  459.  
  460. ENDFONT0:
  461.  incbin "endfont0"
  462. CHARWIDTHS0:
  463.  incbin "charwidths0"
  464. ENDFONT1:
  465. ; incbin "endfont1"
  466. CHARWIDTHS1:
  467. ; incbin "charwidths1"
  468. ENDFONT2:
  469. ; incbin "endfont2"
  470. CHARWIDTHS2:
  471. ; incbin "charwidths2"
  472.  
  473.  even
  474.  
  475. DRAWLINEOFTEXT:
  476.  movem.l d0/a0/d7,-(a7)
  477.  
  478.  muls #80*16,d0
  479.  add.l d0,a1    ; screen pointer
  480.  
  481.  move.l #FONTADDRS,a3
  482.  moveq #0,d0
  483.  move.b (a0)+,d0
  484.  move.l (a3,d0.w*8),a2
  485.  move.l 4(a3,d0.w*8),a3
  486.  
  487.  moveq #0,d1    ; width counter:
  488.  move.w #79,d6
  489.  tst.b (a0)+
  490.  beq.s NOTCENTRED
  491.  moveq #-1,d5
  492.  move.l a0,a4
  493.  moveq #0,d2
  494.  moveq #0,d3
  495.  move.w #79,d0    ; number of chars
  496. .addup:
  497.  addq #1,d5
  498.  move.b (a4)+,d2
  499.  move.b -32(a3,d2.w),d4
  500.  add.w d4,d3
  501.  cmp.b #32,d2
  502.  beq.s .DONTPUTIN
  503.  move.w d5,d6
  504.  move.w d3,d1
  505. .DONTPUTIN:
  506.  dbra d0,.addup
  507.  asr.w #1,d1
  508.  neg.w d1
  509.  add.w #320,d1    ; horiz pos of start x
  510.  
  511. NOTCENTRED:
  512.  move.w d6,d7
  513. DOACHAR:
  514.  moveq #0,d2
  515.  move.b (a0)+,d2
  516.  sub.w #32,d2
  517.  moveq #0,d6
  518.  move.b (a3,d2.w),d6
  519.  asl.w #5,d2
  520.  lea (a2,d2.w),a4    ; char font
  521. val SET 0
  522.  REPT 16
  523.  move.w (a4)+,d0
  524.  bfins d0,val(a1){d1:d6}
  525. val SET val+80
  526.  ENDR
  527.  add.w d6,d1
  528.  dbra d7,DOACHAR
  529.  movem.l (a7)+,d0/a0/d7
  530.  rts 
  531.  
  532.  
  533. CLRTWEENSCRN:
  534.  move.l TEXTSCRN,a0
  535.  move.w #(10240/16)-1,d0
  536.  move.l #$0,d1
  537. .lll
  538.  move.l d1,(a0)+
  539.  move.l d1,(a0)+
  540.  move.l d1,(a0)+
  541.  move.l d1,(a0)+
  542.  move.l d1,(a0)+
  543.  move.l d1,(a0)+
  544.  move.l d1,(a0)+
  545.  move.l d1,(a0)+
  546.  dbra d0,.lll
  547.  rts
  548.  
  549. LEVTOPLAY: dc.w 0
  550.  
  551. COPYLINK: dc.l 0
  552.  
  553. PLAYTHEGAME:
  554.  
  555.  move.w #0,TXTCOLL
  556.  
  557.  bsr CLRTWEENSCRN
  558.  
  559.  cmp.b #'n',mors
  560.  bne.s .notext
  561.  bsr TWEENTEXT
  562. .notext
  563.  
  564. ;charlie 
  565.  move.l #TEXTCOP,$dff080
  566.  
  567.  move.w #$10,d0
  568.  move.w #7,d1
  569.  
  570. .fdup
  571.  move.w d0,TXTCOLL
  572.  add.w #$121,d0
  573. .wtframe:
  574.  btst #5,$dff000+intreqrl
  575.  beq.s .wtframe
  576.  move.w #$0020,$dff000+intreq
  577.  dbra d1,.fdup
  578.  
  579.  jsr INITCOPPERSCRN
  580.  
  581.  move.l #$dff000,a6
  582.  jsr SETPLAYERS
  583.  
  584.  move.l #0,TYPEOFMEM
  585.  move.l #LLname,a0
  586.  jsr LOADAFILE
  587.  move.l d0,LINKS
  588.  
  589.  move.l #0,TYPEOFMEM
  590.  move.l #LLFname,a0
  591.  jsr LOADAFILE
  592.  move.l d0,FLYLINKS
  593.  
  594. ; Get level memory.
  595.  
  596.  move.l #1,d1
  597.  move.l #40000,d0
  598.  move.l 4.w,a6
  599.  jsr -198(a6)
  600.  move.l d0,LEVELGRAPHICS
  601.  
  602.  move.l #1,d1
  603.  move.l #40000,d0
  604.  move.l 4.w,a6
  605.  jsr -198(a6)
  606.  move.l d0,LEVELCLIPS
  607.  
  608.  move.l #$dff000,a6
  609.  
  610. ; move.b LEVTOPLAY,d0
  611. ; move.b d0,LEVA
  612. ; move.b d0,LEVB
  613. ; move.b d0,LEVC
  614. ; move.b d0,LEVD
  615. ; move.b d0,LEVE
  616.  
  617.  
  618. ; move.l #LEVELDATAD,LEVELDATA
  619. ; move.l #LEVELGRAPHICSD,LEVELGRAPHICS
  620. ; move.l #LEVELCLIPSD,LEVELCLIPS
  621.  
  622. ; bra noload
  623.  
  624. *********************************
  625.  
  626. ; move.l doslib,a6
  627. ; move.l #LLname,d1
  628. ; move.l #1005,d2
  629. ; jsr -30(a6)
  630. ; move.l d0,LLhandle
  631. ;
  632. ; move.l doslib,a6
  633. ; move.l d0,d1
  634. ; move.l #LINKS,d2
  635. ; move.l #10000,d3
  636. ; jsr -42(a6)
  637. ;
  638. ; move.l doslib,a6
  639. ; move.l LLhandle,d1
  640. ; jsr -36(a6)
  641.  
  642.  ********************************
  643.  
  644. ; move.l doslib,a6
  645. ; move.l #LLFname,d1
  646. ; move.l #1005,d2
  647. ; jsr -30(a6)
  648. ; move.l d0,LLhandle
  649.  
  650. ; move.l doslib,a6
  651. ; move.l d0,d1
  652. ; move.l #FLYLINKS,d2
  653. ; move.l #10000,d3
  654. ; jsr -42(a6)
  655.  
  656. ; move.l doslib,a6
  657. ; move.l LLhandle,d1
  658. ; jsr -36(a6)
  659.  
  660.  ************************
  661.  ********
  662.  
  663.  
  664.  move.l doslib,a6
  665.  move.l #LDname,d1
  666.  move.l #1005,d2
  667.  jsr -30(a6)
  668.  move.l d0,LDhandle
  669.  
  670.  move.l doslib,a6
  671.  move.l d0,d1
  672.  move.l LEVELCLIPS,d2
  673.  move.l #40000,d3
  674.  jsr -42(a6)
  675.  
  676.  move.l doslib,a6
  677.  move.l LDhandle,d1
  678.  jsr -36(a6)
  679.  
  680. *************************************
  681.     move.l    LEVELCLIPS,d0
  682.     moveq    #0,d1
  683.     move.l LEVELDATA,a0
  684.     lea    WorkSpace,a1
  685.     lea    $0,a2
  686.     jsr    unLHA
  687. *************************************
  688.  
  689. ********
  690.  
  691.  move.l doslib,a6
  692.  move.l #LGname,d1
  693.  move.l #1005,d2
  694.  jsr -30(a6)
  695.  move.l d0,LGhandle
  696.  
  697.  move.l doslib,a6
  698.  move.l d0,d1
  699.  move.l LEVELCLIPS,d2
  700.  move.l #40000,d3
  701.  jsr -42(a6)
  702.  
  703.  move.l doslib,a6
  704.  move.l LGhandle,d1
  705.  jsr -36(a6)
  706.  
  707. *************************************
  708.     move.l    LEVELCLIPS,d0
  709.     moveq    #0,d1
  710.     move.l LEVELGRAPHICS,a0
  711.     lea    WorkSpace,a1
  712.     lea    $0,a2
  713.     jsr    unLHA
  714. *************************************
  715.  
  716. ********
  717.  
  718.  move.l doslib,a6
  719.  move.l #LCname,d1
  720.  move.l #1005,d2
  721.  jsr -30(a6)
  722.  move.l d0,LChandle
  723.  
  724.  move.l doslib,a6
  725.  move.l d0,d1
  726.  move.l #WorkSpace+16384,d2
  727.  move.l #16000,d3
  728.  jsr -42(a6)
  729.  
  730.  move.l doslib,a6
  731.  move.l LChandle,d1
  732.  jsr -36(a6)
  733.  
  734. *************************************
  735.     move.l    #WorkSpace+16384,d0
  736.     moveq    #0,d1
  737.     move.l LEVELCLIPS,a0
  738.     lea    WorkSpace,a1
  739.     lea    $0,a2
  740.     jsr    unLHA
  741. *************************************
  742.  
  743.  
  744. *******
  745.  
  746. noload:
  747.  
  748. ********
  749.  
  750. ; move.l doslib,a6
  751. ; move.l #Prefsname,d1
  752. ; move.l #1005,d2
  753. ; jsr -30(a6)
  754. ; move.l d0,Prefshandle
  755.  
  756. ; move.l doslib,a6
  757. ; move.l d0,d1
  758. ; move.l #Prefsfile,d2
  759. ; move.l #50,d3
  760. ; jsr -42(a6)
  761.  
  762. ; move.l doslib,a6
  763. ; move.l Prefshandle,d1
  764. ; jsr -36(a6)
  765.  
  766. *******
  767.  
  768.  IFNE CD32VER
  769.  move.l doslib,a6
  770.  move.l #115,d1
  771.  jsr -198(a6)
  772.  ENDC
  773.  
  774.  
  775. ; move.l doslib,d0
  776. ; move.l d0,a1
  777. ; move.l 4.w,a6
  778. ; jsr CloseLib(a6)
  779.  
  780.  move.l #$dff000,a6
  781.  
  782. charlie:
  783. ; jmp  ENDGAMESCROLL
  784.  
  785.     move.w #$87c0,dmacon(a6)
  786.  
  787.     move.w    #%1000000000100000,dmacon(a6)
  788.  
  789. ; move.w intenar(a6),saveinters
  790.     
  791.     move.w #%00101111,intena(a6)
  792.  
  793.     move.w #255,adkcon(a6)
  794.  
  795.  
  796. *** Put myself in supervisor mode
  797.  
  798.  bra blag
  799. ; move.l $6c,d0
  800. ; move.l #blag,$6c
  801. ; move.w #$8010,intreq(a6)
  802.  
  803.  rts
  804.  
  805. saveit: ds.l 10
  806. doslibname: dc.b 'dos.library',0
  807.  even
  808. doslib: dc.l 0
  809.  
  810. mors: dc.w 0
  811.  
  812. LDname: dc.b 'ab3:levels/level_'
  813. LEVA:
  814.  dc.b 'a/twolev.bin',0
  815.  even
  816. LDhandle: dc.l 0
  817. LGname: dc.b 'ab3:levels/level_'
  818. LEVB:
  819.  dc.b 'a/twolev.graph.bin',0
  820.  even
  821. LGhandle: dc.l 0
  822. LCname: dc.b 'ab3:levels/level_'
  823. LEVC:
  824.  dc.b 'a/twolev.clips',0
  825.  even
  826. LChandle: dc.l 0
  827. LLname: dc.b 'ab3:levels/level_'
  828. LEVD:
  829.  dc.b 'a/twolev.map',0
  830.  even
  831. LLFname: dc.b 'ab3:levels/level_'
  832. LEVE:
  833.  dc.b 'a/twolev.flymap',0
  834.  even
  835. LLhandle: dc.l 0
  836.  
  837.     cnop    0,4
  838.  
  839. Prefsname: dc.b 'ram:prefs',0
  840.  even
  841. Prefshandle: dc.l 0
  842.  
  843. Prefsfile:
  844.  dc.b 'k4nx'
  845.  
  846.  even
  847.  
  848.  cnop 0,4
  849.  
  850. VBLANKInt
  851.  dc.l 0,0
  852.  dc.b NT_INTERRUPT,9
  853.  dc.l Prefsname
  854.  dc.l 0
  855.  dc.l Chan0inter
  856.  
  857.  
  858. KEYInt
  859.  dc.l 0,0
  860.  dc.b NT_INTERRUPT,127
  861.  dc.l Prefsname
  862.  dc.l 0
  863.  dc.l key_interrupt
  864.  
  865.  
  866. blag:
  867. ; move.w #$10,intreq(a6)
  868. ; move.l d0,$6c
  869. ; move.w #$7fff,intena(a6)
  870.  
  871. ; move.w #$20,$dff1dc
  872.  
  873. ; move.l 4.w,a6
  874. ; lea VBLANKInt(pc),a1
  875. ; moveq #INTB_COPER,d0
  876. ; jsr _LVOAddIntServer(a6)
  877.  
  878. ****************************
  879. * Initialize level
  880. ****************************
  881. * Poke all clip offsets into
  882. * correct bit of level data.
  883. ****************************
  884.  move.l LEVELGRAPHICS,a0
  885.  move.l 12(a0),a1
  886.  add.l a0,a1
  887.  move.l a1,ZoneGraphAdds
  888.  move.l (a0),a1
  889.  add.l a0,a1
  890.  move.l a1,DoorData
  891.  move.l 4(a0),a1
  892.  add.l a0,a1
  893.  move.l a1,LiftData
  894.  move.l 8(a0),a1
  895.  add.l a0,a1
  896.  move.l a1,SwitchData
  897.  adda.w #16,a0
  898.  move.l a0,ZoneAdds
  899.  
  900.  move.l LEVELDATA,a4
  901.  lea 160*10(a4),a1
  902.  
  903.  lea 54(a1),a2
  904.  move.l a2,CPtPos
  905.  move.w 12(a1),NumCPts
  906.  move.w 14(a1),NumLevPts
  907.  
  908.  move.l 16+6(a1),a2
  909.  add.l a4,a2
  910.  move.l a2,Points
  911.  move.w 8+6(a1),d0
  912.  lea 4(a2,d0.w*4),a2
  913.  move.l a2,PointBrights
  914.  move.w 16(a1),d0
  915.  addq #1,d0
  916.  muls #80,d0
  917.  add.l d0,a2
  918.  move.l a2,ZoneBorderPts
  919.  
  920.  move.l 20+6(a1),a2
  921.  add.l a4,a2
  922.  move.l a2,FloorLines
  923.  move.w -2(a2),ENDZONE
  924.  move.l 24+6(a1),a2
  925.  add.l a4,a2
  926.  move.l a2,ObjectData
  927. *****************************************
  928. * Just for charles
  929.  
  930. ; move.w #$6060,6(a2)
  931. ; move.l #$d0000,8(a2)
  932. ; sub.w #40,4(a2)
  933. ; move.w #45*256+45,14(a2)
  934. ****************************************
  935.  move.l 28+6(a1),a2
  936.  add.l a4,a2
  937.  move.l a2,PlayerShotData
  938.  move.l 32+6(a1),a2
  939.  add.l a4,a2
  940.  move.l a2,NastyShotData
  941.  
  942.  add.l #64*20,a2
  943.  move.l a2,OtherNastyData
  944.  
  945.  move.l 36+6(a1),a2
  946.  add.l a4,a2
  947.  move.l a2,ObjectPoints  
  948.  move.l 40+6(a1),a2
  949.  add.l a4,a2
  950.  move.l a2,PLR1_Obj
  951.  move.l 44+6(a1),a2
  952.  add.l a4,a2
  953.  move.l a2,PLR2_Obj
  954.  move.w 14+6(a1),NumObjectPoints
  955.  
  956. ; bra noclips
  957.   
  958.  move.l LEVELCLIPS,a2
  959.  moveq #0,d0
  960.  move.w 10+6(a1),d7    ;numzones
  961.  move.w d7,NUMZONES
  962. assignclips:
  963.  move.l (a0)+,a3
  964.  add.l a4,a3    ; pointer to a zone
  965.  adda.w #ToListOfGraph,a3 ; pointer to zonelist
  966. dowholezone:
  967.  tst.w (a3)
  968.  blt.s nomorethiszone
  969.  tst.w 2(a3)
  970.  blt.s thisonenull
  971.  
  972.  move.l d0,d1
  973.  asr.l #1,d1
  974.  move.w d1,2(a3)
  975.  
  976. findnextclip:
  977.  cmp.w #-2,(a2,d0.l)
  978.  beq.s foundnextclip
  979.  addq.l #2,d0
  980.  bra.s findnextclip
  981. foundnextclip
  982.  addq.l #2,d0
  983.  
  984. thisonenull:
  985.  addq #8,a3 
  986.  bra.s dowholezone
  987. nomorethiszone:
  988.  dbra d7,assignclips
  989.  
  990.  lea (a2,d0.l),a2
  991.  move.l a2,CONNECT_TABLE
  992.  
  993. noclips:
  994.  
  995. * Put in addresses of glowything
  996.  
  997.  
  998. ************************************
  999.  
  1000. ; cmp.b #'k',Prefsfile
  1001. ; bne.s nkb
  1002.  
  1003. ;nkb:
  1004. ; cmp.b #'m',Prefsfile
  1005. ; bne.s nmc
  1006. ; clr.b PLR1KEYS
  1007. ; clr.b PLR1PATH
  1008. ; st PLR1MOUSE
  1009. ; clr.b PLR1JOY
  1010. ;nmc:
  1011. ; cmp.b #'j',Prefsfile
  1012. ; bne.s njc
  1013. ; clr.b PLR1KEYS
  1014. ; clr.b PLR1PATH
  1015. ; clr.b PLR1MOUSE
  1016. ; st PLR1JOY
  1017. ;njc:
  1018.  
  1019.  clr.b PLR1_StoodInTop
  1020.  move.l #playerheight,PLR1s_height
  1021.  
  1022.  move.l #empty,pos1LEFT
  1023.  move.l #empty,pos2LEFT
  1024.  move.l #empty,pos1RIGHT
  1025.  move.l #empty,pos2RIGHT
  1026.  move.l #empty,pos0LEFT
  1027.  move.l #empty,pos3LEFT
  1028.  move.l #empty,pos0RIGHT
  1029.  move.l #empty,pos3RIGHT
  1030.  move.l #emptyend,Samp0endLEFT
  1031.  move.l #emptyend,Samp1endLEFT
  1032.  move.l #emptyend,Samp0endRIGHT
  1033.  move.l #emptyend,Samp1endRIGHT
  1034.  move.l #emptyend,Samp2endLEFT
  1035.  move.l #emptyend,Samp3endLEFT
  1036.  move.l #emptyend,Samp2endRIGHT
  1037.  move.l #emptyend,Samp3endRIGHT
  1038.  
  1039.  
  1040.  move.l #nullline,d0
  1041.  move.w d0,n1l
  1042.  swap d0
  1043.  move.w d0,n1h
  1044.  
  1045.  move.l Panel,d0
  1046.  move.w d0,p1l
  1047.  swap d0
  1048.  move.w d0,p1h
  1049.  swap d0
  1050.  add.l #40,d0
  1051.  move.w d0,p2l
  1052.  swap d0
  1053.  move.w d0,p2h
  1054.  swap d0
  1055.  add.l #40,d0
  1056.  move.w d0,p3l
  1057.  swap d0
  1058.  move.w d0,p3h
  1059.  swap d0
  1060.  add.l #40,d0
  1061.  move.w d0,p4l
  1062.  swap d0
  1063.  move.w d0,p4h
  1064.  swap d0
  1065.  add.l #40,d0
  1066.  move.w d0,p5l
  1067.  swap d0
  1068.  move.w d0,p5h
  1069.  swap d0
  1070.  add.l #40,d0
  1071.  move.w d0,p6l
  1072.  swap d0
  1073.  move.w d0,p6h
  1074.  swap d0
  1075.  add.l #40,d0
  1076.  move.w d0,p7l
  1077.  swap d0
  1078.  move.w d0,p7h
  1079.  swap d0
  1080.  add.l #40,d0
  1081.  move.w d0,p8l
  1082.  swap d0
  1083.  move.w d0,p8h
  1084.  
  1085. *******************************
  1086. * TIMER SCREEN SETUP
  1087. ; move.l #TimerScr,d0
  1088. ; move.w d0,p1l
  1089. ; swap d0
  1090. ; move.w d0,p1h
  1091. ; move.w #$1201,Panelcon
  1092.  
  1093. ; move.l #borders,d0
  1094. ; move.w d0,s0l
  1095. ; swap d0
  1096. ; move.w d0,s0h
  1097. ; move.l #borders+2592,d0
  1098. ; move.w d0,s1l
  1099. ; swap d0
  1100. ; move.w d0,s1h
  1101. ; move.l #borders+2592*2,d0
  1102. ; move.w d0,s2l
  1103. ; swap d0
  1104. ; move.w d0,s2h
  1105. ; move.l #borders+2592*3,d0
  1106. ; move.w d0,s3l
  1107. ; swap d0
  1108. ; move.w d0,s3h
  1109.  
  1110.  move.l #nullspr,d0
  1111.  move.w d0,s0l
  1112.  move.w d0,s1l
  1113.  move.w d0,s2l
  1114.  move.w d0,s3l
  1115.  
  1116.  move.w d0,s4l
  1117.  move.w d0,s5l
  1118.  move.w d0,s6l
  1119.  move.w d0,s7l
  1120.  swap d0
  1121.  
  1122.  move.w d0,s0h
  1123.  move.w d0,s1h
  1124.  move.w d0,s2h
  1125.  move.w d0,s3h
  1126.  
  1127.  move.w d0,s4h
  1128.  move.w d0,s5h
  1129.  move.w d0,s6h
  1130.  move.w d0,s7h 
  1131.  
  1132.  
  1133. ; move.w #52*256+64,borders
  1134. ; move.w #212*256+0,borders+8
  1135. ; move.w #52*256+64,borders+2592
  1136. ; move.w #212*256+128,borders+8+2592
  1137. ; move.w #52*256+192,borders+2592*2
  1138. ; move.w #212*256+0,borders+8+2592*2
  1139. ; move.w #52*256+192,borders+2592*3
  1140. ; move.w #212*256+128,borders+8+2592*3
  1141.  
  1142.  move.l #FacePlace,d0
  1143.  move.w d0,f1l
  1144.  swap d0
  1145.  move.w d0,f1h
  1146.  move.l #FacePlace+32*24,d0
  1147.  move.w d0,f2l
  1148.  swap d0
  1149.  move.w d0,f2h
  1150.  move.l #FacePlace+32*24*2,d0
  1151.  move.w d0,f3l
  1152.  swap d0
  1153.  move.w d0,f3h
  1154.  move.l #FacePlace+32*24*3,d0
  1155.  move.w d0,f4l
  1156.  swap d0
  1157.  move.w d0,f4h
  1158.  move.l #FacePlace+32*24*4,d0
  1159.  move.w d0,f5l
  1160.  swap d0
  1161.  move.w d0,f5h
  1162.   
  1163.  
  1164.  move.l #bigfield,d0
  1165.  move.w d0,ocl
  1166.  swap d0
  1167.  move.w d0,och
  1168.  
  1169.  bset.b #1,$bfe001
  1170.  
  1171. ; jmp stuff
  1172. ;endstuff:
  1173.  
  1174.  move.w #$00ff,$dff09e
  1175.  
  1176. ; move.l #Blurbfield,$dff080
  1177.  
  1178.  move.w #0,d0
  1179.  
  1180.  move.l scrn,d0
  1181.  move.w d0,pl1l
  1182.  swap d0
  1183.  move.w d0,pl1h
  1184.  
  1185.  swap d0
  1186.  add.l #10240,d0
  1187.  move.w d0,pl2l
  1188.  swap d0
  1189.  move.w d0,pl2h
  1190.  
  1191.  swap d0
  1192.  add.l #10240,d0
  1193.  move.w d0,pl3l
  1194.  swap d0
  1195.  move.w d0,pl3h
  1196.  
  1197.  swap d0
  1198.  add.l #10240,d0
  1199.  move.w d0,pl4l
  1200.  swap d0
  1201.  move.w d0,pl4h
  1202.  
  1203.  swap d0
  1204.  add.l #10240,d0
  1205.  move.w d0,pl5l
  1206.  swap d0
  1207.  move.w d0,pl5h
  1208.  
  1209.  swap d0
  1210.  add.l #10240,d0
  1211.  move.w d0,pl6l
  1212.  swap d0
  1213.  move.w d0,pl6h
  1214.  
  1215.  swap d0
  1216.  add.l #10240,d0
  1217.  move.w d0,pl7l
  1218.  swap d0
  1219.  move.w d0,pl7h
  1220.  
  1221.  swap d0
  1222.  add.l #10240,d0
  1223.  move.w d0,pl8l
  1224.  swap d0
  1225.  move.w d0,pl8h
  1226.  
  1227.  
  1228. ****************************
  1229.  jsr INITPLAYER
  1230. ; bsr initobjpos
  1231. ****************************
  1232.  
  1233.  
  1234.  move.l #$dff000,a6
  1235.  
  1236.  move.l #null,$dff0a0
  1237.  move.w #100,$dff0a4
  1238.  move.w #443,$dff0a6
  1239.  move.w #63,$dff0a8
  1240.  
  1241.  move.l #null2,$dff0b0
  1242.  move.w #100,$dff0b4
  1243.  move.w #443,$dff0b6
  1244.  move.w #63,$dff0b8
  1245.  
  1246.  move.l #null4,$dff0c0
  1247.  move.w #100,$dff0c4
  1248.  move.w #443,$dff0c6
  1249.  move.w #63,$dff0c8
  1250.  
  1251.  move.l #null3,$dff0d0
  1252.  move.w #100,$dff0d4
  1253.  move.w #443,$dff0d6
  1254.  move.w #63,$dff0d8
  1255.  
  1256.  ifeq CHEESEY
  1257.  
  1258.  move.l #tab,a1
  1259.  move.w #64,d7
  1260.  move.w #0,d6
  1261. outerlop
  1262.  move.l #pretab,a0
  1263.  move.w #255,d5
  1264. scaledownlop:
  1265.  move.b (a0)+,d0
  1266.  ext.w d0
  1267.  ext.l d0
  1268.  muls d6,d0
  1269.  asr.l #6,d0
  1270.  move.b d0,(a1)+
  1271.  dbra d5,scaledownlop
  1272.  addq #1,d6
  1273.  dbra d7,outerlop
  1274.  
  1275.  endc
  1276.  
  1277.  move.l #$dff000,a6
  1278.  
  1279.  move.w #$c018,intena(a6)
  1280.  
  1281.  move.w #$f,dmacon(a6)
  1282.  move.w #$820f,dmacon(a6)
  1283.  
  1284. ; bsr protinit
  1285.  
  1286.  
  1287. ; move.w #$20,$1dc(a6)
  1288.  
  1289.  move.w #$0,$dff034
  1290.  move.w #0,Conditions
  1291.  
  1292.  cmp.b #'n',mors
  1293.  beq.s .nokeys
  1294.  move.w #%111111111111,Conditions
  1295. .nokeys:
  1296.  
  1297.  move.l #KeyMap,a5
  1298.  clr.b $45(a5)
  1299.  
  1300.  move.l #ingame,mt_data
  1301.  clr.b UseAllChannels
  1302.  
  1303. ; cmp.b #'b',Prefsfile+3
  1304. ; bne.s .noback
  1305. ; jsr mt_init
  1306. ;.noback:
  1307. ;
  1308. ; clr.b CHANNELDATA
  1309. ; clr.b CHANNELDATA+8
  1310. ; clr.b CHANNELDATA+16
  1311. ; clr.b CHANNELDATA+24
  1312. ;
  1313. ; cmp.b #'b',Prefsfile+3
  1314. ; bne.s noreserve
  1315. ;
  1316. ; st CHANNELDATA
  1317. ; st CHANNELDATA+8
  1318. ; st CHANNELDATA+16
  1319. ; st CHANNELDATA+24
  1320. ;noreserve: 
  1321.  
  1322. ; st CHANNELDATA
  1323. ; st CHANNELDATA+8
  1324.  
  1325.  move.l SampleList+6*8,pos0LEFT
  1326.  move.l SampleList+6*8+4,Samp0endLEFT
  1327.  move.l #playerheight,PLR1s_targheight
  1328.  move.l #playerheight,PLR1s_height
  1329.  move.l #playerheight,PLR2s_targheight
  1330.  move.l #playerheight,PLR2s_height
  1331.  
  1332. ; cmp.b #'n',mors
  1333. ; beq.s nohandshake
  1334. ;
  1335. ; move.b #%11011000,$bfd200
  1336. ; move.b #%00010000,$bfd000
  1337. ;waitloop:
  1338. ; btst.b #4,$bfd000
  1339. ; bne.s waitloop
  1340. ; move.b #%11000000,$bfd200
  1341.  
  1342. ;wtmouse:
  1343. ; btst #6,$bfe001
  1344. ; bne.s wtmouse
  1345.  
  1346. ;nohandshake:
  1347.  
  1348. ; jmp end
  1349.  
  1350. ; move.l COPSCRN1,drawpt
  1351. ; move.l COPSCRN2,olddrawpt
  1352.  
  1353.  jsr CLEARKEYBOARD
  1354. ; jsr MAKEBACKROUT
  1355.  
  1356.  clr.b MASTERQUITTING
  1357.  
  1358.  cmp.b #'n',mors
  1359.  seq SLAVEQUITTING
  1360.  
  1361. ; move.w #200,PLAYERTWOHEALTH
  1362. ; move.w #200,PLAYERONEHEALTH
  1363.  
  1364. ; move.l #ANOTHERSUP,$80
  1365. ; trap #0
  1366. ; rts
  1367. ;
  1368. ;ANOTHERSUP:
  1369.  
  1370.  move.l $4.w,a6
  1371.  jsr _LVOSuperState(a6)
  1372.  move.l d0,SSTACK
  1373.  
  1374.  CACHE_FREEZE_OFF d2
  1375.  
  1376. ; charlie
  1377. ; DATA_CACHE_ON d2
  1378.  
  1379.  DataCacheOn
  1380.  
  1381.  move.l $4.w,a6
  1382.  move.l SSTACK,d0
  1383.  jsr _LVOUserState(a6)
  1384.  
  1385.  move.l #0,hitcol
  1386.  
  1387.  cmp.b #'n',mors
  1388.  bne.s NOCLTXT
  1389.  
  1390.  move.b #0,lastpressed
  1391. .wtpress
  1392.  btst #6,$bfe001
  1393.  beq.s CLOSETXT
  1394.  btst #7,$bfe001
  1395.  beq.s CLOSETXT
  1396.  tst.b lastpressed
  1397.  beq.s .wtpress
  1398.  
  1399. CLOSETXT:
  1400.  
  1401.  move.w #$8f8,d0
  1402.  move.w #7,d1
  1403.  
  1404. .fdup
  1405.  move.w d0,TXTCOLL
  1406.  sub.w #$121,d0
  1407. .wtframe:
  1408.  btst #5,$dff000+intreqrl
  1409.  beq.s .wtframe
  1410.  move.w #$0020,$dff000+intreq
  1411.  dbra d1,.fdup
  1412.  
  1413.  move.w #0,TXTCOLL
  1414.  
  1415. NOCLTXT:
  1416.  
  1417.  
  1418.  
  1419.     move.l    4.w,a6
  1420.     jsr    _LVOForbid(a6)
  1421. ;    jsr    _LVODisable(a6)
  1422.  
  1423.  
  1424. ;    move.w    #%0111111111111111,intena+$dff000
  1425. ;    move.w    #%1000000011111111,intena+$dff000
  1426.  
  1427.  
  1428. ;charlie 
  1429.  move.l #PALETTEBIT,$dff084
  1430.  move.l #bigfield,$dff080    ; Point the copper at our copperlist.
  1431.  
  1432.  
  1433.  clr.b PLR1_Ducked
  1434.  clr.b PLR2_Ducked
  1435.  clr.b p1_ducked
  1436.  clr.b p2_ducked
  1437.  
  1438. ********************************************
  1439.  
  1440. ;    jmp docredits
  1441.  
  1442. ********************************************
  1443.  
  1444.  
  1445.  st doanything
  1446.  st dosounds
  1447.  
  1448.  jsr CLRNASTYMEM
  1449.  
  1450.  move.l #COMPACTMAP,a0
  1451.  move.l a0,LASTZONE
  1452.  move.w #255,d0
  1453. .clrmap
  1454.  move.l #0,(a0)+
  1455.  dbra d0,.clrmap
  1456.  
  1457.  move.l #COMPACTMAP,a0
  1458.  move.l #BIGMAP,a1
  1459.  
  1460.  bra NOALLWALLS
  1461.  
  1462.  move.l ZoneGraphAdds,a2
  1463. DOALLWALLS:
  1464.  move.l (a2),d0
  1465.  beq.s nomorezones
  1466.  move.l d0,a3
  1467.  
  1468.  addq #8,a2
  1469.  
  1470.  add.l LEVELGRAPHICS,a3
  1471.  addq #2,a3
  1472.  move.l a1,a4
  1473.  
  1474. ; DOLOWERROOM
  1475.  
  1476. innerwalls:
  1477.  move.b (a3),d1
  1478.  move.b 1(a3),d0
  1479.  bne doneinner
  1480.  
  1481.  tst.b d1
  1482.  blt noid
  1483.  
  1484.  move.b d1,d3
  1485.  and.w #15,d1
  1486.  
  1487.  moveq #0,d0
  1488.  move.w d1,d2
  1489.  add.w d1,d1
  1490.  add.w d2,d1
  1491.  addq #1,d1
  1492.  bset d1,d0
  1493.  btst #4,d3
  1494.  beq.s .nodoor
  1495.  addq #1,d1
  1496.  bset d1,d0
  1497. .nodoor
  1498.  
  1499.  or.l d0,(a0)
  1500.  
  1501.  move.w 2(a3),(a4)
  1502.  move.w 4(a3),2(a4)
  1503.  
  1504. noid:
  1505.  
  1506.  add.w #30,a3
  1507.  addq #4,a4
  1508.  
  1509.  bra innerwalls
  1510.  
  1511. doneinner:
  1512.  
  1513.  add.w #40,a1
  1514.  addq #4,a0
  1515.  
  1516.  bra DOALLWALLS
  1517. nomorezones:
  1518.  
  1519. NOALLWALLS
  1520.  
  1521.  move.w #96,MIDDLEX
  1522.  move.w #192,RIGHTX
  1523.  move.w #160,BOTTOMY
  1524.  move.w #80,TOTHEMIDDLE
  1525.  clr.b FULLSCR
  1526.  move.l scrn,a0
  1527.  jsr WIPEDISPLAY
  1528.  move.l scrn2,a0
  1529.  jsr WIPEDISPLAY
  1530.  
  1531.  st PLAYERONEGUNS+1
  1532.  st PLAYERTWOGUNS+1
  1533.  
  1534.  move.w #100,timetodamage
  1535.  
  1536.  move.w #299,d0
  1537.  move.l #DAMAGED,a0
  1538. CLRDAM:
  1539.  move.w #0,(a0)+
  1540.  dbra d0,CLRDAM
  1541.  
  1542.  moveq #0,d0
  1543.  move.w d0,STOPOFFSET
  1544.  neg.w d0
  1545.  add.w TOTHEMIDDLE,d0
  1546.  move.w d0,SMIDDLEY
  1547.  muls #320,d0
  1548.  move.l d0,SBIGMIDDLEY
  1549.  
  1550.  move.w #0,PLR1_AIMSPD
  1551.  move.w #0,PLR2_AIMSPD
  1552.  
  1553.  move.l scrn,SCRNSHOWPT
  1554.  
  1555.  move.l scrn2,SCRNDRAWPT
  1556.  
  1557.  move.w #%110000000000,$dff034
  1558.  
  1559.  
  1560. lop:
  1561.  
  1562.  move.b MAPON,REALMAPON
  1563.  
  1564.  move.b FULLSCRTEMP,d0
  1565.  move.b FULLSCR,d1
  1566.  eor.b d1,d0
  1567.  beq.s .notswapscr2
  1568.  
  1569.  move.b FULLSCRTEMP,FULLSCR
  1570.  beq.s .notswapscr3
  1571.  
  1572.  move.w #144,MIDDLEX
  1573.  move.w #288,RIGHTX
  1574.  move.w #232,BOTTOMY
  1575.  move.w #120,TOTHEMIDDLE
  1576.  move.l SCRNSHOWPT,a0
  1577.  jsr WIPEDISPLAY
  1578.  move.l SCRNDRAWPT,a0
  1579.  jsr WIPEDISPLAY
  1580.  
  1581.  bra.s .notswapscr2
  1582.  
  1583. .notswapscr3:
  1584.  move.w #96,MIDDLEX
  1585.  move.w #192,RIGHTX
  1586.  move.w #160,BOTTOMY
  1587.  move.w #80,TOTHEMIDDLE
  1588.  move.l SCRNSHOWPT,a0
  1589.  jsr WIPEDISPLAY
  1590.  move.l SCRNDRAWPT,a0
  1591.  jsr WIPEDISPLAY
  1592. .notswapscr2:
  1593.  
  1594.  
  1595.  btst #6,$bfe001
  1596. ;charlie bne.b .nocop
  1597.  
  1598. ;charlie move.l #bigfield,$dff080    ; Point the copper at our copperlist.
  1599.  
  1600. .nocop
  1601.  
  1602.  move.l #KeyMap,a5
  1603.  
  1604.  cmp.b #'n',mors
  1605.  bne .nopause
  1606.  tst.b $19(a5)
  1607.  beq.s .nopause
  1608.  clr.b doanything
  1609.  
  1610. .waitrel:
  1611.  
  1612.  tst.b PLR1JOY
  1613.  beq.s .NOJOY
  1614.  jsr _ReadJoy1
  1615. .NOJOY
  1616.  
  1617.  tst.b $19(a5)
  1618.  bne.s .waitrel
  1619.  
  1620.  bsr PAUSEOPTS
  1621.  
  1622.  st doanything
  1623. .nopause: 
  1624.  
  1625.  move.l hitcol,d0
  1626.  move.l d0,d1
  1627.  
  1628. ********************************************
  1629. * Remove after colour testing 
  1630. ; moveq #0,d1
  1631. ********************************************
  1632.  
  1633.  add.l #PALETTEBIT,d1
  1634.  tst.l d0
  1635.  beq.s nofadedownhc
  1636.  sub.l #2116,d0
  1637.  move.l d0,hitcol
  1638. nofadedownhc:
  1639.  
  1640.  move.l d1,a0
  1641.  move.l #PALETTESPACE,a1
  1642.  move.l #(2116/4)-2,d0
  1643. putinpal:
  1644.  move.l (a0)+,(a1)+
  1645.  dbra d0,putinpal
  1646.  
  1647.  st READCONTROLS
  1648.  move.l #$dff000,a6
  1649.  
  1650.  
  1651.  cmp.b #'n',mors
  1652.  beq .nopause
  1653.  
  1654.  move.b SLAVEPAUSE,d0
  1655.  or.b MASTERPAUSE,d0
  1656.  beq.s .nopause
  1657.  clr.b doanything
  1658.  
  1659.  move.l #KeyMap,a5
  1660. .waitrel:
  1661.  
  1662.  cmp.b #'s',mors
  1663.  beq.s .RE2
  1664.  tst.b PLR1JOY
  1665.  beq.s .NOJOY
  1666.  jsr _ReadJoy1
  1667.  bra .RE1
  1668. .RE2:
  1669.  tst.b PLR2JOY
  1670.  beq.s .NOJOY
  1671.  jsr _ReadJoy2
  1672. .RE1
  1673. .NOJOY:
  1674.  tst.b $19(a5)
  1675.  bne.s .waitrel
  1676.  
  1677.  bsr PAUSEOPTS
  1678.  
  1679.  cmp.b #'m',mors
  1680.  bne.s .slavelast
  1681.  Jsr SENDFIRST
  1682.  bra .masfirst
  1683. .slavelast
  1684.  Jsr RECFIRST
  1685. .masfirst:
  1686.  clr.b SLAVEPAUSE
  1687.  clr.b MASTERPAUSE
  1688.  st doanything
  1689.  
  1690. .nopause: 
  1691.  
  1692.  
  1693.  move.l drawpt,d0
  1694.  move.l olddrawpt,drawpt
  1695.  move.l d0,olddrawpt
  1696.  
  1697.  move.l SCRNDRAWPT,d0
  1698.  move.l SCRNSHOWPT,SCRNDRAWPT
  1699.  move.l d0,SCRNSHOWPT
  1700.  
  1701. ; move.l d0,$dff084    
  1702.  move.l drawpt,a3
  1703. ; move.l COPSCRNBUFF,a3
  1704.  adda.w #10,a3
  1705.  move.l a3,frompt
  1706.  add.l #104*4*40,a3
  1707.  move.l a3,midpt
  1708.  
  1709.  cmp.b #'s',mors
  1710.  beq.s nowaitslave
  1711.  
  1712. waitfortop:
  1713.  
  1714.  btst.b #0,intreqrl(a6)
  1715.  beq.b waitfortop
  1716.  
  1717.  move.w #$1,intreq(a6)
  1718. ; move.l #PLR1_GunData,GunData
  1719.  move.b PLR1_GunSelected,GunSelected
  1720.  bra waitmaster
  1721.  
  1722. nowaitslave:
  1723. ; move.l #PLR2_GunData,GunData
  1724.  move.b PLR2_GunSelected,GunSelected
  1725. waitmaster:
  1726.  
  1727.  move.l d0,d1
  1728.  move.l d1,d0
  1729.  move.w d0,pl1l
  1730.  swap d0
  1731.  move.w d0,pl1h
  1732.  
  1733.  add.l #10240,d1
  1734.  move.l d1,d0
  1735.  move.w d0,pl2l
  1736.  swap d0
  1737.  move.w d0,pl2h
  1738.  
  1739.  add.l #10240,d1
  1740.  move.l d1,d0
  1741.  move.w d0,pl3l
  1742.  swap d0
  1743.  move.w d0,pl3h
  1744.  
  1745.  add.l #10240,d1
  1746.  move.l d1,d0
  1747.  move.w d0,pl4l
  1748.  swap d0
  1749.  move.w d0,pl4h
  1750.  
  1751.  add.l #10240,d1
  1752.  move.l d1,d0
  1753.  move.w d0,pl5l
  1754.  swap d0
  1755.  move.w d0,pl5h
  1756.  
  1757.  add.l #10240,d1
  1758.  move.l d1,d0
  1759.  move.w d0,pl6l
  1760.  swap d0
  1761.  move.w d0,pl6h
  1762.  
  1763.  add.l #10240,d1
  1764.  move.l d1,d0
  1765.  move.w d0,pl7l
  1766.  swap d0
  1767.  move.w d0,pl7h
  1768.  
  1769.  add.l #10240,d1
  1770.  move.l d1,d0
  1771.  move.w d0,pl8l
  1772.  swap d0
  1773.  move.w d0,pl8h 
  1774.  
  1775.  move.l #SMIDDLEY,a0
  1776.  movem.l (a0)+,d0/d1
  1777.  move.l d0,MIDDLEY
  1778.  move.l d1,MIDDLEY+4
  1779.  
  1780.  move.l waterpt,a0
  1781.  move.l (a0)+,watertouse
  1782.  cmp.l #endwaterlist,a0
  1783.  blt.s okwat
  1784.  move.l #waterlist,a0
  1785. okwat:
  1786.  move.l a0,waterpt
  1787.  
  1788.  add.w #640,wtan
  1789.  and.w #8191,wtan
  1790.  add.l #1,wateroff
  1791.  and.l #$3fff3fff,wateroff
  1792.  
  1793.  move.l PLR1_xoff,OLDX1
  1794.  move.l PLR1_zoff,OLDZ1
  1795.  move.l PLR2_xoff,OLDX2
  1796.  move.l PLR2_zoff,OLDZ2
  1797.  
  1798.  move.l #$dff000,a6
  1799.  
  1800.  cmp.b #'s',mors
  1801.  beq ASlaveShouldWaitOnHisMaster
  1802.  
  1803.  cmp.b #'n',mors
  1804.  bne NotOnePlayer
  1805.  
  1806.  movem.l d0-d7/a0-a6,-(a7)
  1807.  
  1808.  moveq #0,d0
  1809.  move.b GunSelected,d0
  1810.  move.l LINKFILE,a6
  1811.  add.l #GunBulletTypes,a6
  1812.  move.w (a6,d0.w*8),d0
  1813.  
  1814.  move.l #PLAYERONEAMMO,a6
  1815.  move.w (a6,d0.w*2),d0
  1816.  move.w d0,Ammo
  1817.  movem.l (a7)+,d0-d7/a0-a6
  1818.  
  1819.  move.w PLAYERONEHEALTH,Energy
  1820.  
  1821.  move.w FramesToDraw,TempFrames
  1822.  cmp.w #15,TempFrames
  1823.  blt.s .okframe
  1824.  move.w #15,TempFrames
  1825. .okframe:
  1826.  move.w #0,FramesToDraw
  1827.  
  1828. *********************************************
  1829. *********** TAKE THIS OUT *******************
  1830. *********************************************
  1831.  
  1832.  move.l CHEATPTR,a4
  1833.  add.l #200000,a4
  1834.  moveq #0,d0
  1835.  move.b (a4),d0
  1836.  
  1837.  move.l #KeyMap,a5
  1838.  tst.b (a5,d0.w)
  1839.  beq.s .nocheat
  1840.  
  1841.  addq #1,a4
  1842.  cmp.l #ENDCHEAT,a4
  1843.  blt.s .nocheat
  1844.  cmp.w #0,CHEATNUM
  1845.  beq.s .nocheat
  1846.  sub.w #1,CHEATNUM
  1847.  move.l #CHEATFRAME,a4
  1848.  move.w #127,PLR1_energy
  1849.  jsr EnergyBar
  1850. .nocheat
  1851.  
  1852.  sub.l #200000,a4
  1853.  move.l a4,CHEATPTR
  1854.  
  1855. **********************************************
  1856. **********************************************
  1857. **********************************************
  1858.  
  1859.  move.l PLR1s_xoff,p1_xoff
  1860.  move.l PLR1s_zoff,p1_zoff
  1861.  move.l PLR1s_yoff,p1_yoff
  1862.  move.l PLR1s_height,p1_height
  1863.  move.w PLR1s_angpos,p1_angpos
  1864.  move.w PLR1_bobble,p1_bobble
  1865.  move.b PLR1_clicked,p1_clicked
  1866.  move.b PLR1_fire,p1_fire
  1867.  clr.b PLR1_clicked
  1868.  move.b PLR1_SPCTAP,p1_spctap
  1869.  clr.b PLR1_SPCTAP
  1870.  move.b PLR1_Ducked,p1_ducked
  1871.  move.b PLR1_GunSelected,p1_gunselected
  1872.  
  1873.  bsr PLR1_Control
  1874.  
  1875.  move.l PLR1_Roompt,a0
  1876.  move.l ToZoneRoof(a0),SplitHeight
  1877.  move.w p1_xoff,THISPLRxoff
  1878.  move.w p1_zoff,THISPLRzoff
  1879.  
  1880.  
  1881.  move.l #$60000,p2_yoff
  1882.  move.l PLR2_Obj,a0
  1883.  move.w #-1,GraphicRoom(a0)
  1884.  move.w #-1,12(a0)
  1885.  move.b #0,17(a0)
  1886.  move.l #BollocksRoom,PLR2_Roompt
  1887.  
  1888.  bra donetalking
  1889.  
  1890. NotOnePlayer:
  1891.  move.l #KeyMap,a5
  1892.  tst.b $19(a5)
  1893.  sne MASTERPAUSE
  1894.  
  1895. *********************************
  1896.  move.w PLAYERONEHEALTH,Energy
  1897. ; change this back
  1898. *********************************
  1899.  movem.l d0-d7/a0-a6,-(a7)
  1900.  
  1901.  moveq #0,d0
  1902.  move.b GunSelected,d0
  1903.  move.l LINKFILE,a6
  1904.  add.l #GunBulletTypes,a6
  1905.  move.w (a6,d0.w*8),d0
  1906.  
  1907.  move.l #PLAYERONEAMMO,a6
  1908.  move.w (a6,d0.w*2),d0
  1909.  move.w d0,Ammo
  1910.  movem.l (a7)+,d0-d7/a0-a6
  1911.  
  1912.  jsr SENDFIRST
  1913.  
  1914.  move.w FramesToDraw,TempFrames
  1915.  cmp.w #15,TempFrames
  1916.  blt.s .okframe
  1917.  move.w #15,TempFrames
  1918. .okframe:
  1919.  move.w #0,FramesToDraw
  1920.  
  1921.  move.l PLR1s_xoff,p1_xoff
  1922.  move.l PLR1s_zoff,p1_zoff
  1923.  move.l PLR1s_yoff,p1_yoff
  1924.  move.l PLR1s_height,p1_height
  1925.  move.w PLR1s_angpos,p1_angpos
  1926.  move.w PLR1_bobble,p1_bobble
  1927.  move.b PLR1_clicked,p1_clicked
  1928.  clr.b PLR1_clicked
  1929.  move.b PLR1_fire,p1_fire
  1930.  move.b PLR1_SPCTAP,p1_spctap
  1931.  clr.b PLR1_SPCTAP
  1932.  move.b PLR1_Ducked,p1_ducked
  1933.  move.b PLR1_GunSelected,p1_gunselected
  1934.  
  1935.  move.l PLR1_AIMSPD,d0
  1936.  jsr SENDFIRST
  1937.  move.l d0,PLR2_AIMSPD
  1938.  
  1939.  move.l p1_xoff,d0
  1940.  jsr SENDFIRST
  1941.  move.l d0,p2_xoff
  1942.  
  1943.  move.l p1_zoff,d0
  1944.  jsr SENDFIRST
  1945.  move.l d0,p2_zoff 
  1946.  
  1947.  move.l p1_yoff,d0
  1948.  jsr SENDFIRST
  1949.  move.l d0,p2_yoff
  1950.   
  1951.  move.l p1_height,d0
  1952.  jsr SENDFIRST
  1953.  move.l d0,p2_height
  1954.  
  1955.  move.w p1_angpos,d0
  1956.  swap d0
  1957.  move.w p1_bobble,d0
  1958.  jsr SENDFIRST
  1959.  move.w d0,p2_bobble
  1960.  swap d0
  1961.  move.w d0,p2_angpos
  1962.  
  1963.  
  1964.  move.w TempFrames,d0
  1965.  swap d0
  1966.  move.b p1_spctap,d0
  1967.  lsl.w #8,d0
  1968.  move.b p1_clicked,d0
  1969.  jsr SENDFIRST
  1970.  move.b d0,p2_clicked
  1971.  lsr.w #8,d0
  1972.  move.b d0,p2_spctap
  1973.  
  1974.  
  1975.  move.w Rand1,d0
  1976.  swap d0
  1977.  move.b p1_ducked,d0
  1978.  lsl.w #8,d0
  1979.  move.b p1_gunselected,d0
  1980.  jsr SENDFIRST
  1981.  move.b d0,p2_gunselected
  1982.  lsr.w #8,d0
  1983.  move.b d0,p2_ducked
  1984.  
  1985.  move.b p1_fire,d0
  1986.  lsl.w #8,d0
  1987.  move.b MASTERQUITTING,d0
  1988.  or.b d0,SLAVEQUITTING
  1989.  swap d0
  1990.  move.b MASTERPAUSE,d0
  1991.  or.b d0,SLAVEPAUSE
  1992.  jsr SENDFIRST
  1993.  or.b d0,MASTERPAUSE
  1994.  or.b d0,SLAVEPAUSE
  1995.  swap d0
  1996.  or.b d0,SLAVEQUITTING
  1997.  or.b d0,MASTERQUITTING
  1998.  lsr.w #8,d0
  1999.  move.b d0,p2_fire
  2000.  
  2001.  bsr PLR1_Control
  2002.  bsr PLR2_Control
  2003.  move.l PLR1_Roompt,a0
  2004.  move.l ToZoneRoof(a0),SplitHeight
  2005.  move.w p1_xoff,THISPLRxoff
  2006.  move.w p1_zoff,THISPLRzoff
  2007.  
  2008.  bra donetalking
  2009.  
  2010. ASlaveShouldWaitOnHisMaster:
  2011.  
  2012.  move.l #KeyMap,a5
  2013.  tst.b $19(a5)
  2014.  sne SLAVEPAUSE
  2015.  
  2016.  movem.l d0-d7/a0-a6,-(a7)
  2017.  
  2018.  moveq #0,d0
  2019.  move.b GunSelected,d0
  2020.  move.l LINKFILE,a6
  2021.  add.l #GunBulletTypes,a6
  2022.  move.w (a6,d0.w*8),d0
  2023.  
  2024.  move.l #PLAYERTWOAMMO,a6
  2025.  move.w (a6,d0.w*2),d0
  2026.  move.w d0,Ammo
  2027.  movem.l (a7)+,d0-d7/a0-a6
  2028.  
  2029.  move.w PLAYERTWOHEALTH,Energy
  2030.  
  2031.  jsr RECFIRST
  2032.  
  2033.  move.l PLR2s_xoff,p2_xoff
  2034.  move.l PLR2s_zoff,p2_zoff
  2035.  move.l PLR2s_yoff,p2_yoff
  2036.  move.l PLR2s_height,p2_height
  2037.  move.w PLR2s_angpos,p2_angpos
  2038.  move.w PLR2_bobble,p2_bobble
  2039.  move.b PLR2_clicked,p2_clicked
  2040.  clr.b PLR2_clicked
  2041.  move.b PLR2_fire,p2_fire
  2042.  move.b PLR2_SPCTAP,p2_spctap
  2043.  clr.b PLR2_SPCTAP
  2044.  move.b PLR2_Ducked,p2_ducked
  2045.  move.b PLR2_GunSelected,p2_gunselected
  2046.  
  2047.  move.l PLR2_AIMSPD,d0
  2048.  jsr RECFIRST
  2049.  move.l d0,PLR1_AIMSPD
  2050.  
  2051.  move.l p2_xoff,d0
  2052.  jsr RECFIRST
  2053.  move.l d0,p1_xoff
  2054.  
  2055.  move.l p2_zoff,d0
  2056.  jsr RECFIRST
  2057.  move.l d0,p1_zoff
  2058.  
  2059.  move.l p2_yoff,d0
  2060.  jsr RECFIRST
  2061.  move.l d0,p1_yoff
  2062.  
  2063.  move.l p2_height,d0
  2064.  jsr RECFIRST
  2065.  move.l d0,p1_height
  2066.  
  2067.  move.w p2_angpos,d0
  2068.  swap d0
  2069.  move.w p2_bobble,d0
  2070.  jsr RECFIRST
  2071.  move.w d0,p1_bobble
  2072.  swap d0
  2073.  move.w d0,p1_angpos
  2074.  
  2075.  
  2076.  move.b p2_spctap,d0
  2077.  lsl.w #8,d0
  2078.  move.b p2_clicked,d0
  2079.  jsr RECFIRST
  2080.  move.b d0,p1_clicked
  2081.  lsr.w #8,d0
  2082.  move.b d0,p1_spctap
  2083.  swap d0
  2084.  move.w d0,TempFrames
  2085.  
  2086.  move.b p2_ducked,d0
  2087.  lsl.w #8,d0
  2088.  move.b p2_gunselected,d0
  2089.  jsr RECFIRST
  2090.  move.b d0,p1_gunselected
  2091.  lsr.w #8,d0
  2092.  move.b d0,p1_ducked
  2093.  swap d0
  2094.  move.w d0,Rand1
  2095.  
  2096.  move.b p2_fire,d0
  2097.  lsl.w #8,d0
  2098.  move.b SLAVEQUITTING,d0
  2099.  or.b d0,MASTERQUITTING
  2100.  swap d0
  2101.  move.b SLAVEPAUSE,d0
  2102.  or.b d0,MASTERPAUSE
  2103.  jsr RECFIRST
  2104.  or.b d0,MASTERPAUSE
  2105.  or.b d0,SLAVEPAUSE
  2106.  swap d0
  2107.  or.b d0,SLAVEQUITTING
  2108.  or.b d0,MASTERQUITTING
  2109.  lsr.w #8,d0
  2110.  move.b d0,p1_fire
  2111.  
  2112.  
  2113.  bsr PLR1_Control
  2114.  bsr PLR2_Control
  2115.  move.w p2_xoff,THISPLRxoff
  2116.  move.w p2_zoff,THISPLRzoff
  2117.  move.l PLR2_Roompt,a0
  2118.  move.l ToZoneRoof(a0),SplitHeight
  2119.  
  2120. donetalking:
  2121.  
  2122.  
  2123.  move.l #ZoneBrightTable,a1
  2124.  move.l ZoneAdds,a2
  2125.  move.l PLR2_ListOfGraphRooms,a0
  2126. ; move.l PLR2_PointsToRotatePtr,a5
  2127.  move.l a0,a5
  2128.  cmp.b #'s',mors
  2129.  beq.s doallz
  2130.  move.l PLR1_ListOfGraphRooms,a0
  2131. ; move.l PLR1_PointsToRotatePtr,a5
  2132.  move.l a0,a5 
  2133. doallz
  2134.  move.w (a0),d0
  2135.  blt.s doneallz
  2136.  add.w #8,a0
  2137.  
  2138.  move.l (a2,d0.w*4),a3
  2139.  add.l LEVELDATA,a3
  2140.  move.w ToZoneBrightness(a3),d2
  2141.  
  2142.  blt.s justbright
  2143.  move.w d2,d3
  2144.  lsr.w #8,d3
  2145.  tst.b d3
  2146.  beq.s justbright
  2147.  
  2148.  move.l #BrightAnimTable,a4
  2149.  move.w -2(a4,d3.w*2),d2
  2150.  
  2151. justbright:
  2152.  muls #32,d2
  2153.  divs #20,d2
  2154.  move.w d2,(a1,d0.w*4)
  2155.  
  2156.  move.w ToUpperBrightness(a3),d2
  2157.  
  2158.  blt.s justbright2
  2159.  move.w d2,d3
  2160.  lsr.w #8,d3
  2161.  tst.b d3
  2162.  beq.s justbright2
  2163.  
  2164.  move.l #BrightAnimTable,a4
  2165.  move.w -2(a4,d3.w*2),d2
  2166.  
  2167. justbright2:
  2168.  
  2169.  muls #32,d2
  2170.  divs #20,d2
  2171.  move.w d2,2(a1,d0.w*4)
  2172.  
  2173.  bra doallz
  2174.  
  2175. doneallz:
  2176.  
  2177.  move.l PointBrights,a2
  2178.  move.l #CurrentPointBrights,a3
  2179. justtheone:
  2180.  move.w (a5),d0
  2181.  blt whythehell
  2182.  addq #8,a5
  2183.  
  2184.  muls #40,d0
  2185.  
  2186.  move.w #39,d7
  2187.  
  2188. allinzone:
  2189.  move.w (a2,d0.w*2),d2
  2190.  
  2191.  tst.b d2
  2192.  blt.s .justbright
  2193.  move.w d2,d3
  2194.  lsr.w #8,d3
  2195.  tst.b d3
  2196.  beq.s .justbright
  2197.  
  2198.  move.w d3,d4
  2199.  and.w #$f,d3
  2200.  lsr.w #4,d4
  2201.  add.w #1,d4
  2202.  move.l #BrightAnimTable,a0
  2203.  move.w -2(a0,d3.w*2),d3
  2204.  ext.w d2
  2205.  sub.w d2,d3
  2206.  muls d4,d3
  2207.  asr.w #4,d3
  2208.  add.w d3,d2
  2209.  
  2210. .justbright:
  2211.  ext.w d2
  2212.  
  2213.  muls #31,d2
  2214.  divs #20,d2
  2215.  bge.s .itspos
  2216.  sub.w #600,d2
  2217. .itspos:
  2218.  add.w #300,d2
  2219.  
  2220.  move.w d2,(a3,d0.w*2)
  2221.  addq #1,d0
  2222.  dbra d7,allinzone
  2223.  
  2224.  bra justtheone
  2225.  
  2226. whythehell:
  2227.  
  2228.  move.l PLR1_Roompt,a0
  2229.  move.l #CurrentPointBrights,a1
  2230.  move.l ZoneBorderPts,a2
  2231.  move.w (a0),d0
  2232.  muls #10,d0
  2233.  lea (a2,d0.w*2),a2
  2234.  lea (a1,d0.w*8),a1
  2235.  
  2236.  moveq #9,d7
  2237.  moveq #0,d0
  2238.  moveq #0,d1
  2239. findaverage:
  2240.  tst.w (a2)+
  2241.  blt.s .foundaverage
  2242.  addq #1,d0
  2243.  move.w (a1)+,d2
  2244.  bge.s .okpos
  2245.  neg.w d2
  2246. .okpos:
  2247.  add.w d2,d1
  2248.  
  2249.  dbra d7,findaverage
  2250.  
  2251. .foundaverage:
  2252.  
  2253.  ext.l d1
  2254.  divs d0,d1
  2255.  sub.w #300,d1
  2256.  move.w d1,PLR1_RoomBright
  2257.  
  2258.  cmp.b #'n',mors
  2259.  beq nosee
  2260.  
  2261.  move.l PLR1_Roompt,FromRoom
  2262.  move.l PLR2_Roompt,ToRoom
  2263.  move.w p1_xoff,Viewerx
  2264.  move.w p1_zoff,Viewerz
  2265.  move.l p1_yoff,d0
  2266.  asr.l #7,d0
  2267.  move.w d0,Viewery
  2268.  move.w p2_xoff,Targetx
  2269.  move.w p2_zoff,Targetz
  2270.  move.l p2_yoff,d0
  2271.  asr.l #7,d0
  2272.  move.w d0,Targety
  2273.  move.b PLR1_StoodInTop,ViewerTop
  2274.  move.b PLR2_StoodInTop,TargetTop
  2275.  jsr CanItBeSeen
  2276.  
  2277.  move.l PLR1_Obj,a0
  2278.  move.b CanSee,d0
  2279.  and.b #2,d0
  2280.  move.b d0,17(a0)
  2281.  move.l PLR2_Obj,a0
  2282.  move.b CanSee,d0
  2283.  and.b #1,d0
  2284.  move.b d0,17(a0)
  2285.  
  2286. nosee:
  2287.  
  2288.  
  2289.  move.w TempFrames,d0
  2290.  add.w d0,p1_holddown
  2291.  cmp.w #30,p1_holddown
  2292.  blt.s oklength
  2293.  move.w #30,p1_holddown
  2294. oklength:
  2295.  
  2296.  tst.b p1_fire
  2297.  bne.s okstillheld
  2298.  sub.w d0,p1_holddown
  2299.  bge.s okstillheld
  2300.  move.w #0,p1_holddown
  2301.  
  2302. okstillheld:
  2303.  
  2304.  move.w TempFrames,d0
  2305.  add.w d0,p2_holddown
  2306.  
  2307.  cmp.w #30,p2_holddown
  2308.  blt.s oklength2
  2309.  move.w #30,p2_holddown
  2310. oklength2:
  2311.  
  2312.  
  2313.  tst.b p2_fire
  2314.  bne.s okstillheld2
  2315.  sub.w d0,p2_holddown
  2316.  bge.s okstillheld2
  2317.  move.w #0,p2_holddown
  2318. okstillheld2:
  2319.  
  2320. ***** CHECKING LIGHT *********
  2321.  
  2322. ; move.w #-20,d0
  2323. ; move.w PLR1_xoff,d1
  2324. ; move.w PLR1_zoff,d2
  2325. ; move.l PLR1_Roompt,a0
  2326. ; move.w (a0),d3
  2327. ; move.w PLR1_angpos,d4
  2328. ;
  2329. ; jsr BRIGHTENPOINTSANGLE
  2330.  
  2331. ******************************
  2332.  
  2333. ; move.l #PLR1_GunData,a1
  2334. ; move.w p1_holddown,d0
  2335. ; move.w #50,10+32*3(a1)
  2336. ; move.l #PLR2_GunData,a1
  2337. ; move.w p2_holddown,d0
  2338. ; move.w #50,10+32*3(a1)
  2339.  
  2340. ******************************************
  2341. ******************************************
  2342.  
  2343.  move.w TempFrames,d1
  2344.  bgt.s noze
  2345.  moveq #1,d1
  2346. noze:
  2347.  
  2348.  move.w PLR1_xoff,d0
  2349.  sub.w OLDX1,d0
  2350.  asl.w #4,d0
  2351.  ext.l d0
  2352.  divs d1,d0
  2353.  move.w d0,XDIFF1
  2354.  move.w PLR2_xoff,d0
  2355.  sub.w OLDX2,d0
  2356.  asl.w #4,d0
  2357.  ext.l d0
  2358.  divs d1,d0
  2359.  move.w d0,XDIFF2
  2360.  move.w PLR1_zoff,d0
  2361.  sub.w OLDZ1,d0
  2362.  asl.w #4,d0
  2363.  ext.l d0
  2364.  divs d1,d0
  2365.  move.w d0,ZDIFF1
  2366.  move.w PLR2_zoff,d0
  2367.  sub.w OLDZ2,d0
  2368.  asl.w #4,d0
  2369.  ext.l d0
  2370.  divs d1,d0
  2371.  move.w d0,ZDIFF2
  2372.  
  2373.  cmp.b #'s',mors
  2374.  beq.s ImPlayer2OhYesIAm
  2375.  bsr USEPLR1
  2376.  bra IWasPlayer1
  2377.  
  2378. ImPlayer2OhYesIAm:
  2379.  bsr USEPLR2
  2380. IWasPlayer1:
  2381.  
  2382.  
  2383.  cmp.b #'s',mors
  2384.  beq drawplayer2
  2385.  
  2386.  move.w #0,scaleval
  2387.  
  2388.  move.l PLR1_xoff,xoff
  2389.  move.l PLR1_yoff,yoff
  2390.  move.l PLR1_zoff,zoff
  2391.  move.w PLR1_angpos,angpos
  2392.  move.w PLR1_cosval,cosval
  2393.  move.w PLR1_sinval,sinval
  2394.  
  2395.  
  2396.  move.l PLR1_ListOfGraphRooms,ListOfGraphRooms
  2397.  move.l PLR1_PointsToRotatePtr,PointsToRotatePtr
  2398.  move.l PLR1_Roompt,Roompt
  2399.  
  2400.  move.l #KeyMap,a5
  2401.  moveq #0,d5
  2402.  move.b look_behind_key,d5
  2403.  tst.b (a5,d5.w)
  2404.  beq.s .nolookback
  2405.  
  2406.  move.l PLR1_Obj,a0
  2407.  move.w #-1,12+128(a0)
  2408.  
  2409.  eor.w #4096,angpos 
  2410.  neg.w cosval
  2411.  neg.w sinval
  2412. .nolookback:
  2413.  
  2414.  bsr OrderZones
  2415.  jsr objmoveanim
  2416.  jsr EnergyBar
  2417.  
  2418.  
  2419.  jsr AmmoBar
  2420.  
  2421. ;********************************************
  2422. ;************* Do reflection ****************
  2423. ;
  2424. ; move.l ListOfGraphRooms,a0
  2425. ; move.l ZoneAdds,a1
  2426. ;checkwaterheights
  2427. ; move.w (a0),d0
  2428. ; blt allzonesdone
  2429. ; addq #8,a0
  2430. ; move.l (a1,d0.w*4),a2
  2431. ; 
  2432. ; add.l LEVELDATA,a2
  2433. ; 
  2434. ; move.l ToZoneWater(a2),d0
  2435. ; cmp.l ToZoneFloor(a2),d0
  2436. ; blt.s WEHAVEAHEIGHT
  2437. ; 
  2438. ; bra.s checkwaterheights
  2439. ;
  2440. ;WEHAVEAHEIGHT:
  2441. ;
  2442. ; sub.l yoff,d0
  2443. ; blt.s underwater
  2444. ; 
  2445. ; add.l d0,d0
  2446. ; add.l d0,yoff
  2447. ; 
  2448. ; move.l FASTBUFFER2,FASTBUFFER
  2449. ; move.w #0,leftclip
  2450. ; move.w RIGHTX,rightclip
  2451. ; move.w #0,deftopclip
  2452. ; move.w #BOTTOMY/2,defbotclip
  2453. ; move.w #0,topclip
  2454. ; move.w #BOTTOMY/2,botclip
  2455. ;
  2456. ; clr.b DOANYWATER 
  2457. ; 
  2458. ; bsr DrawDisplay
  2459. ; 
  2460. ;allzonesdone:
  2461. ;underwater:
  2462.  
  2463. ********************************************
  2464.  
  2465.  st DOANYWATER
  2466.  
  2467.  move.l PLR1_yoff,yoff
  2468.  
  2469.  move.w #0,leftclip
  2470.  move.w RIGHTX,rightclip
  2471.  move.w #0,deftopclip
  2472.  move.w WIDESCRN,d0
  2473.  add.w d0,deftopclip
  2474.  
  2475.  move.w BOTTOMY,defbotclip
  2476.  sub.w d0,defbotclip
  2477.  move.w #0,topclip
  2478.  add.w d0,topclip
  2479.  move.w BOTTOMY,botclip
  2480.  sub.w d0,botclip
  2481. ; sub.l #10*104*4,frompt
  2482. ; sub.l #10*104*4,midpt
  2483.  
  2484. * Subroom loop
  2485.  
  2486.  bsr DrawDisplay 
  2487.  
  2488.  bra nodrawp2
  2489.  
  2490. drawplayer2
  2491.  
  2492.  move.w #0,scaleval
  2493.  move.l PLR2_xoff,xoff
  2494.  move.l PLR2_yoff,yoff
  2495.  move.l PLR2_zoff,zoff
  2496.  move.w PLR2_angpos,angpos
  2497.  move.w PLR2_cosval,cosval
  2498.  move.w PLR2_sinval,sinval 
  2499.  
  2500.  
  2501.  
  2502.  move.l PLR2_ListOfGraphRooms,ListOfGraphRooms
  2503.  move.l PLR2_PointsToRotatePtr,PointsToRotatePtr
  2504.  move.l PLR2_Roompt,Roompt
  2505.  
  2506.  move.l #KeyMap,a5
  2507.  moveq #0,d5
  2508.  move.b look_behind_key,d5
  2509.  tst.b (a5,d5.w)
  2510.  beq.s .nolookback
  2511.  
  2512.  move.l PLR1_Obj,a0
  2513.  move.w #-1,12+128(a0)
  2514.  eor.w #4096,angpos 
  2515.  
  2516.  neg.w cosval
  2517.  neg.w sinval
  2518. .nolookback:
  2519.  
  2520.  bsr OrderZones
  2521.  jsr objmoveanim
  2522.  jsr EnergyBar
  2523.  jsr AmmoBar
  2524.  
  2525.  move.w WIDESCRN,d0
  2526.  
  2527.  move.w #0,leftclip
  2528.  move.w RIGHTX,rightclip
  2529.  move.w #0,deftopclip
  2530.  add.w d0,deftopclip
  2531.  move.w BOTTOMY,defbotclip
  2532.  sub.w d0,defbotclip
  2533.  move.w #0,topclip
  2534.  add.w d0,topclip
  2535.  move.w BOTTOMY,botclip
  2536.  sub.w d0,botclip
  2537.  
  2538.  bsr DrawDisplay
  2539.  
  2540. nodrawp2:
  2541.  
  2542. ***************************************** 
  2543. * Copy from copbuff to chip ram
  2544.  
  2545.  
  2546. ; move.l drawpt,a3
  2547. ; adda.w #10,a3
  2548. ; move.l COPSCRNBUFF,a2
  2549. ; move.w #2,d6
  2550. ; adda.w #10,a2
  2551. ;COPYOUT
  2552. ; move.w #31,d0
  2553. ;COPYDOWN1:
  2554. ; move.w #3,d1
  2555. ; move.l a2,a4
  2556. ; move.l a3,a5
  2557. ;.inlop1:
  2558. ;val SET 0
  2559. ; REPT 20
  2560. ; move.w val(a4),val(a5)
  2561. ;val SET val+104*4
  2562. ; ENDR
  2563. ; adda.l #104*4*20,a4
  2564. ; adda.l #104*4*20,a5
  2565. ; dbra d1,.inlop1
  2566. ; addq #4,a2
  2567. ; addq #4,a3
  2568. ; dbra d0,COPYDOWN1
  2569. ; addq #4,a2
  2570. ; addq #4,a3
  2571. ; dbra d6,COPYOUT 
  2572.  
  2573.  tst.b REALMAPON
  2574.  beq.s .nomap
  2575.  bsr DoTheMapWotNastyCharlesIsForcingMeToDo
  2576. .nomap
  2577.  
  2578.  move.w WIDESCRN,d7
  2579.  
  2580.  tst.b FULLSCR
  2581.  beq nobigconv
  2582.  
  2583.  move.l FASTBUFFER,a0
  2584. ; add.l #320*2*20,a0
  2585.  move.w d7,d6
  2586.  muls #320,d6
  2587.  add.l d6,a0
  2588.  move.l SCRNDRAWPT,a1
  2589.  move.w d7,d6
  2590.  muls #40,d6
  2591.  add.l d6,a1
  2592.  add.l #2,a1
  2593.  move.l #(288/8)-1,d0
  2594.  move.l #231,d1
  2595.  sub.w d7,d1
  2596.  sub.w d7,d1
  2597.  blt nochunk
  2598.  move.w #(320-288),d2
  2599.  move.w #4,d3
  2600.  
  2601.  bra donebigconv
  2602.  
  2603. nobigconv:
  2604.  
  2605.  move.l FASTBUFFER,a0
  2606.  move.w d7,d6
  2607.  muls #320,d6
  2608.  add.l d6,a0
  2609.  move.l SCRNDRAWPT,a1
  2610.  add.l #8+40*20,a1
  2611.  move.w d7,d6
  2612.  muls #40,d6
  2613.  add.l d6,a1
  2614.  move.l #(192/8)-1,d0
  2615.  move.l #159,d1
  2616.  sub.w d7,d1
  2617.  sub.w d7,d1
  2618.  blt nochunk
  2619.  move.w #(320-192),d2
  2620.  move.w #16,d3
  2621. donebigconv
  2622.  
  2623.  tst.b DOUBLEHEIGHT
  2624.  beq.s .nodoub
  2625.  asr.w #1,d1
  2626.  blt nochunk
  2627.  add.w #320,d2
  2628.  add.w #40,d3
  2629. .nodoub:
  2630.  
  2631.  move.b DOUBLEWIDTH,d4
  2632.  
  2633.  move.b PLR1_TELEPORTED,d5
  2634.  clr.b PLR1_TELEPORTED
  2635.  cmp.b #'s',mors
  2636.  bne.s .notplr2
  2637.  move.b PLR2_TELEPORTED,d5
  2638.  clr.b PLR2_TELEPORTED
  2639. .notplr2
  2640.  jsr CHUNKYTOPLANAR 
  2641.  
  2642. nochunk:
  2643.  
  2644.  move.l #KeyMap,a5
  2645.  tst.b $4a(a5)
  2646.  beq .nosmallscr
  2647.  
  2648.  move.l #0,d7
  2649.  move.l #0,d6
  2650.  tst.b FULLSCR
  2651.  bne.s .attop
  2652.  move.l #40*20,d7
  2653.  move.l #40*52,d6
  2654. .attop:
  2655.  
  2656.  move.w WIDESCRN,d0
  2657.  move.l SCRNDRAWPT,a0
  2658.  add.l d7,a0
  2659.  muls #40,d0
  2660.  add.l d0,a0
  2661.  bsr CLRTWOLINES
  2662.  move.w WIDESCRN,d0
  2663.  move.l SCRNSHOWPT,a0
  2664.  add.l d7,a0
  2665.  muls #40,d0
  2666.  add.l d0,a0
  2667.  bsr CLRTWOLINES
  2668.  
  2669.  add.w #2,WIDESCRN
  2670.  
  2671.  move.l SCRNDRAWPT,a0
  2672.  add.l #232*40,a0
  2673.  sub.l d6,a0
  2674.  move.w WIDESCRN,d0
  2675.  muls #40,d0
  2676.  sub.l d0,a0
  2677.  bsr CLRTWOLINES
  2678.  move.l SCRNSHOWPT,a0
  2679.  sub.l d6,a0
  2680.  add.l #232*40,a0
  2681.  move.w WIDESCRN,d0
  2682.  muls #40,d0
  2683.  sub.l d0,a0
  2684.  bsr CLRTWOLINES
  2685.  
  2686. .nosmallscr
  2687.  
  2688.  tst.b $5e(a5)
  2689.  beq.s .nobigscr
  2690.  tst.w WIDESCRN
  2691.  ble.s .nobigscr
  2692.  
  2693.  sub.w #2,WIDESCRN
  2694.  
  2695. .nobigscr
  2696.  
  2697.  
  2698.  tst.b (a5)
  2699.  beq.s .nosavescrn
  2700.  
  2701.  not.b USEDOUG
  2702.  
  2703.  jsr SAVETHESCREEN
  2704.  
  2705. .nosavescrn:
  2706.  
  2707.  tst.b $5b(a5)
  2708.  beq notdoubheight
  2709.  tst.b LASTDH
  2710.  bne notdoubheight2
  2711.  move.l SCRNSHOWPT,a0
  2712.  jsr WIPEDISPLAY
  2713.  move.l SCRNDRAWPT,a0
  2714.  jsr WIPEDISPLAY
  2715.  st LASTDH 
  2716.  
  2717.  move.w #0,d0
  2718.  move.w #0,d1
  2719.  
  2720.  not.b DOUBLEHEIGHT
  2721.  beq.s singlepixheight
  2722.  move.w #-40,d0
  2723.  move.w #40,d1
  2724.  
  2725. singlepixheight:
  2726.  
  2727.  move.l #SCRMODULOS,a0
  2728.  move.w #115,d2
  2729. putinmode:
  2730.  move.w d0,6(a0)
  2731.  move.w d0,6+4(a0)
  2732.  move.w d1,6+16(a0)
  2733.  move.w d1,6+16+4(a0)
  2734.  add.w #32,a0
  2735.  dbra d2,putinmode
  2736.  
  2737.  bra notdoubheight2
  2738.  
  2739. notdoubheight:
  2740.  clr.b LASTDH
  2741. notdoubheight2
  2742.  
  2743.  tst.b $5a(a5)
  2744.  beq.s notdoubwidth
  2745.  tst.b LASTDW
  2746.  bne notdoubwidth2
  2747.  move.l SCRNSHOWPT,a0
  2748.  jsr WIPEDISPLAY
  2749.  move.l SCRNDRAWPT,a0
  2750.  jsr WIPEDISPLAY
  2751.  st LASTDW
  2752.  not.b DOUBLEWIDTH
  2753.  bra.s notdoubwidth2
  2754.  
  2755. notdoubwidth:
  2756.  clr.b LASTDW
  2757. notdoubwidth2:
  2758.  
  2759. ***************************************** 
  2760.  move.l PLR2_Roompt,a0
  2761.  move.l #WorkSpace,a1
  2762.  clr.l (a1)
  2763.  clr.l 4(a1)
  2764.  clr.l 8(a1)
  2765.  clr.l 12(a1)
  2766.  clr.l 16(a1)
  2767.  clr.l 20(a1)
  2768.  clr.l 24(a1)
  2769.  clr.l 28(a1)
  2770.  
  2771.  cmp.b #'n',mors
  2772.  beq.s plr1only
  2773.  
  2774.  lea ToListOfGraph(a0),a0
  2775. .doallrooms:
  2776.  move.w (a0),d0
  2777.  blt.s .allroomsdone
  2778.  addq #8,a0
  2779.  move.w d0,d1
  2780.  asr.w #3,d0
  2781.  bset d1,(a1,d0.w)
  2782.  bra .doallrooms
  2783. .allroomsdone:
  2784.  
  2785. plr1only:
  2786.  
  2787.  move.l PLR1_Roompt,a0
  2788.  lea ToListOfGraph(a0),a0
  2789. .doallrooms2:
  2790.  move.w (a0),d0
  2791.  blt.s .allroomsdone2
  2792.  addq #8,a0
  2793.  move.w d0,d1
  2794.  asr.w #3,d0
  2795.  bset d1,(a1,d0.w)
  2796.  bra .doallrooms2
  2797. .allroomsdone2:
  2798.  
  2799.  move.l #%000001,d7
  2800.  lea TEAMWORK,a2
  2801.  move.l ObjectData,a0
  2802.  sub.w #64,a0
  2803. .doallobs:
  2804.  add.w #64,a0
  2805.  move.w (a0),d0
  2806.  blt.s .allobsdone
  2807.  move.w 12(a0),d0
  2808.  blt.s .doallobs
  2809.  move.w d0,d1
  2810.  asr.w #3,d0
  2811.  btst d1,(a1,d0.w)
  2812.  bne.s .worryobj
  2813.  move.b 16(a0),d0
  2814.  btst d0,d7
  2815.  beq.s .doallobs
  2816.  moveq #0,d0
  2817.  move.b teamnumber(a0),d0
  2818.  blt.s .doallobs
  2819.  asl.w #4,d0
  2820.  tst.w SEENBY(a2,d0.w)
  2821.  blt.s .doallobs
  2822. .worryobj:
  2823.  or.b #127,worry(a0)
  2824.  bra.s .doallobs
  2825. .allobsdone:
  2826.  
  2827.  
  2828.  
  2829. ; move.l #brightentab,a0
  2830. ; move.l frompt,a3
  2831. ; adda.w #(4*33)+(104*4*20),a3
  2832. ; move.w #20,d7
  2833. ; move.w #20,d6
  2834. ;horl:
  2835. ; move.w d6,d5
  2836. ; move.l a3,a1
  2837. ;vertl
  2838. ; move.w (a1),d0
  2839. ; move.w (a0,d0.w*2),(a1)
  2840. ; addq #4,a1
  2841. ; dbra d5,vertl
  2842. ; adda.w #104*4,a3
  2843. ; dbra d7,horl
  2844.  
  2845.  move.l #$dff000,a6
  2846.  
  2847. ; move.w #$300,col0(a6)
  2848.  
  2849.  move.l #KeyMap,a5
  2850.  tst.b $45(a5)
  2851.  beq.s noend
  2852.  
  2853.  cmp.b #'s',mors
  2854.  beq plr2quit 
  2855.  
  2856.  st MASTERQUITTING
  2857.  bra noend
  2858.  
  2859. plr2quit:
  2860.  st SLAVEQUITTING
  2861. noend:
  2862.  
  2863.  tst.b MASTERQUITTING
  2864.  beq.s .noquit
  2865.  tst.b SLAVEQUITTING
  2866.  beq.s .noquit
  2867.  jmp endnomusic
  2868. .noquit
  2869.  
  2870.  cmp.b #'n',mors
  2871.  bne.s noexit
  2872.  move.l PLR1_Roompt,a0
  2873.  move.w (a0),d0
  2874. ; move.w PLOPT,d1
  2875. ; move.l #ENDZONES,a0
  2876. ; cmp.w (a0,d1.w*2),d0
  2877.  
  2878.  cmp.w ENDZONE,d0
  2879.  
  2880. ; change this for quick exit, charlie
  2881. zzzz:
  2882. ; bra end
  2883.  
  2884.  bne.s noexit
  2885.  jmp end
  2886. noexit:
  2887.  
  2888. ; tst.w PLAYERONEHEALTH
  2889. ; bgt nnoend1
  2890. ; jmp end
  2891. ;nnoend1:
  2892. ; tst.w PLAYERTWOHEALTH
  2893. ; bgt nnoend2
  2894. ; jmp end
  2895. ;nnoend2:
  2896.  
  2897. ; move.l SwitchData,a0
  2898. ; tst.b 24+8(a0)
  2899. ; bne end
  2900.   
  2901. ; JSR STOPTIMER
  2902.  
  2903.  
  2904.  bra lop
  2905.  
  2906.  include "ab3:source_4000/ab3diipatchidr.s"
  2907.  
  2908. CLRTWOLINES:
  2909.  
  2910.  moveq #0,d1
  2911.  move.w #7,d2
  2912. .ccc
  2913.  move.l d1,2(a0)
  2914.  move.l d1,6(a0)
  2915.  move.l d1,10(a0)
  2916.  move.l d1,14(a0)
  2917.  move.l d1,18(a0)
  2918.  move.l d1,22(a0)
  2919.  move.l d1,26(a0)
  2920.  move.l d1,30(a0)
  2921.  move.l d1,34(a0)
  2922.  move.l d1,2+40(a0)
  2923.  move.l d1,6+40(a0)
  2924.  move.l d1,10+40(a0)
  2925.  move.l d1,14+40(a0)
  2926.  move.l d1,18+40(a0)
  2927.  move.l d1,22+40(a0)
  2928.  move.l d1,26+40(a0)
  2929.  move.l d1,30+40(a0)
  2930.  move.l d1,34+40(a0)
  2931.  add.l #10240,a0
  2932.  dbra d2,.ccc
  2933.  rts
  2934.  
  2935.  
  2936. LASTDH: dc.b 0
  2937. LASTDW: dc.b 0
  2938. WIDESCRN: dc.w 0
  2939. TRRANS: dc.w 0
  2940. DOANYWATER: dc.w 0
  2941.  
  2942. DoTheMapWotNastyCharlesIsForcingMeToDo:
  2943.  
  2944.  move.l #SHADINGTABLE,a4
  2945. ; add.w MAPBRIGHT,a4
  2946.  
  2947.  move.l #KeyMap,a5
  2948.  tst.b $50(a5)
  2949.  beq.s .nobrighter
  2950.  tst.w MAPBRIGHT
  2951.  beq.s .nobrighter
  2952.  
  2953.  sub.w #1,MAPBRIGHT
  2954.  
  2955. .nobrighter:
  2956.  
  2957.  tst.b $51(a5)
  2958.  beq.s .nodimmer
  2959.  cmp.w #7,MAPBRIGHT
  2960.  bge.s .nodimmer
  2961.  
  2962.  add.w #1,MAPBRIGHT
  2963.  
  2964. .nodimmer:
  2965.  
  2966.  move.l #Rotated,a1
  2967.  move.l #COMPACTMAP,a2
  2968.  move.l #BIGMAP-40,a3
  2969.  
  2970. preshow:
  2971.  add.w #40,a3
  2972.  
  2973. SHOWMAP:
  2974.  move.l (a2)+,d5
  2975.  move.l a2,d7
  2976.  cmp.l LASTZONE,d7
  2977.  bgt shownmap
  2978.  
  2979.  tst.l d5
  2980.  beq.s preshow
  2981.  
  2982.  move.w #9,d7
  2983. wallsofzone
  2984.  
  2985.  asr.l #1,d5
  2986.  bcs.s WALLSEEN
  2987.  
  2988.  asr.l #1,d5
  2989.  bcs.s WALLMAPPED
  2990.  
  2991.  asr.l #1,d5
  2992.  addq #4,a3
  2993.  bra.s DECIDEDWALL
  2994.  
  2995. WALLMAPPED:
  2996.  move.w #$b00,d4
  2997.  asr.l #1,d5
  2998.  bcc.s .notadoor
  2999.  move.w #$e00,d4
  3000. .notadoor
  3001.  
  3002.  st TRRANS
  3003.  
  3004.  bra.s DECIDEDCOLOUR
  3005.  
  3006. WALLSEEN:
  3007.  
  3008.  clr.b TRRANS
  3009.  
  3010.  move.w #255,d4
  3011.  asr.l #2,d5
  3012.  bcc.s .notadoor
  3013.  move.w #254,d4
  3014. .notadoor
  3015. DECIDEDCOLOUR:
  3016.  move.w (a3)+,d6
  3017.  move.l (a1,d6.w*8),d0
  3018.  asr.l #7,d0
  3019.  add.w mapxoff,d0
  3020.  move.w 6(a1,d6.w*8),d1
  3021.  add.w mapzoff,d1
  3022.  move.w (a3)+,d6
  3023.  move.l (a1,d6.w*8),d2
  3024.  asr.l #7,d2
  3025.  add.w mapxoff,d2
  3026.  move.w 6(a1,d6.w*8),d3
  3027.  add.w mapzoff,d3
  3028.  
  3029.  neg.w d1
  3030.  neg.w d3
  3031.  
  3032.  movem.l d7/d5,-(a7)
  3033.  bsr CLIPANDDRAW
  3034.  movem.l (a7)+,d7/d5
  3035.  
  3036. DECIDEDWALL:
  3037.  
  3038.  dbra d7,wallsofzone
  3039.  bra SHOWMAP
  3040.  
  3041. shownmap:
  3042.  
  3043.  clr.b TRRANS
  3044.  
  3045.  move.w mapxoff,d0
  3046.  move.w mapzoff,d1
  3047.  neg.w d1
  3048.  move.w d0,d2
  3049.  move.w d1,d3
  3050.  sub.w #128,d1
  3051.  add.w #128,d3
  3052.  move.w #250,d4
  3053.  bsr CLIPANDDRAW
  3054.  
  3055.  move.w mapxoff,d0
  3056.  move.w mapzoff,d1
  3057.  neg.w d1
  3058.  move.w d0,d2
  3059.  move.w d1,d3
  3060.  sub.w #128,d1
  3061.  sub.w #32,d3
  3062.  sub.w #64,d2
  3063.  move.w #250,d4
  3064.  bsr CLIPANDDRAW
  3065.  
  3066.  move.w mapxoff,d0
  3067.  move.w mapzoff,d1
  3068.  neg.w d1
  3069.  move.w d0,d2
  3070.  move.w d1,d3
  3071.  sub.w #128,d1
  3072.  sub.w #32,d3
  3073.  add.w #64,d2
  3074.  move.w #250,d4
  3075.  bsr CLIPANDDRAW
  3076.  rts
  3077.  
  3078.  
  3079. CLIPANDDRAW:
  3080.  
  3081.  tst.b FULLSCR
  3082.  beq.s .nodov
  3083.  
  3084.  add.w d0,d0
  3085.  add.w d2,d2
  3086.  ext.l d0
  3087.  ext.l d2
  3088.  divs #3,d0
  3089.  divs #3,d2
  3090.  
  3091. .nodov:
  3092.  
  3093.  move.w MAPBRIGHT,d5
  3094.  asr.w d5,d0
  3095.  asr.w d5,d1
  3096.  asr.w d5,d2
  3097.  asr.w d5,d3
  3098.  
  3099. NOSCALING:
  3100.  add.w #96,d0
  3101.  bge p1xpos
  3102.  
  3103.  add.w #96,d2
  3104.  blt OFFSCREEN
  3105.  
  3106. x1nx2p:
  3107.  
  3108.  move.w d3,d5
  3109.  sub.w d1,d5
  3110.  move.w d2,d6
  3111.  sub.w d0,d6
  3112.  beq OFFSCREEN
  3113.  
  3114.  muls d0,d5
  3115.  divs d6,d5
  3116.  sub.w d5,d1
  3117.  move.w #0,d0
  3118.  
  3119.  bra doneleftclip
  3120.  
  3121. p1xpos:
  3122.  
  3123.  add.w #96,d2
  3124.  bge doneleftclip
  3125.  
  3126.  move.w d1,d5
  3127.  sub.w d3,d5
  3128.  move.w d0,d6
  3129.  sub.w d2,d6
  3130.  beq OFFSCREEN
  3131.  
  3132.  muls d2,d5
  3133.  divs d6,d5
  3134.  sub.w d5,d3
  3135.  move.w #0,d2
  3136.  
  3137. doneleftclip:
  3138.  
  3139.  cmp.w #191,d0
  3140.  ble p1xneg
  3141.  
  3142.  cmp.w #191,d2
  3143.  bgt OFFSCREEN
  3144.  
  3145.  move.w d0,d6
  3146.  sub.w d2,d6
  3147.  beq OFFSCREEN
  3148.  sub.w #191,d0
  3149.  move.w d3,d5
  3150.  sub.w d1,d5
  3151.  
  3152.  muls d5,d0
  3153.  divs d6,d0
  3154.  add.w d0,d1
  3155.  move.w #191,d0
  3156.  
  3157.  bra donerightclip
  3158.  
  3159. p1xneg:
  3160.  
  3161.  cmp.w #191,d2
  3162.  ble donerightclip
  3163.  
  3164.  move.w d2,d6
  3165.  sub.w d0,d6
  3166.  beq OFFSCREEN
  3167.  sub.w #191,d2
  3168.  move.w d1,d5
  3169.  sub.w d3,d5
  3170.  
  3171.  muls d5,d2
  3172.  divs d6,d2
  3173.  add.w d2,d3
  3174.  move.w #191,d2
  3175.  
  3176. donerightclip:
  3177.  
  3178. *********************************
  3179.  
  3180.  add.w #80,d1
  3181.  bge p1ypos
  3182.  
  3183.  add.w #80,d3
  3184.  blt OFFSCREEN
  3185.  
  3186.  move.w d2,d5
  3187.  sub.w d0,d5
  3188.  move.w d3,d6
  3189.  sub.w d1,d6
  3190.  beq OFFSCREEN
  3191.  
  3192.  muls d1,d5
  3193.  divs d6,d5
  3194.  sub.w d5,d0
  3195.  move.w #0,d1
  3196.  
  3197.  bra donetopclip
  3198.  
  3199. p1ypos:
  3200.  
  3201.  add.w #80,d3
  3202.  bge donetopclip
  3203.  
  3204.  move.w d0,d5
  3205.  sub.w d2,d5
  3206.  move.w d1,d6
  3207.  sub.w d3,d6
  3208.  beq OFFSCREEN
  3209.  
  3210.  muls d3,d5
  3211.  divs d6,d5
  3212.  sub.w d5,d2
  3213.  move.w #0,d3
  3214.  
  3215. donetopclip:
  3216.  
  3217.  cmp.w #159,d1
  3218.  ble p1yneg
  3219.  
  3220.  cmp.w #159,d3
  3221.  bgt OFFSCREEN
  3222.  
  3223.  move.w d1,d6
  3224.  sub.w d3,d6
  3225.  beq OFFSCREEN
  3226.  sub.w #159,d1
  3227.  move.w d2,d5
  3228.  sub.w d0,d5
  3229.  
  3230.  muls d5,d1
  3231.  divs d6,d1
  3232.  add.w d1,d0
  3233.  move.w #159,d1
  3234.  
  3235.  bra donebotclip
  3236.  
  3237. p1yneg:
  3238.  
  3239.  cmp.w #159,d3
  3240.  ble donebotclip
  3241.  
  3242.  move.w d3,d6
  3243.  sub.w d1,d6
  3244.  beq OFFSCREEN
  3245.  sub.w #159,d3
  3246.  move.w d0,d5
  3247.  sub.w d2,d5
  3248.  
  3249.  muls d5,d3
  3250.  divs d6,d3
  3251.  add.w d3,d2
  3252.  move.w #159,d3
  3253.  
  3254. donebotclip:
  3255.  
  3256.  tst.b TRRANS
  3257.  bne DRAWAtransLINE
  3258.  bra DRAWAMAPLINE
  3259.  
  3260. OFFSCREEN:
  3261. NOLINEtrans:
  3262.  rts
  3263.  
  3264. MAPBRIGHT:
  3265.  dc.w 3
  3266. mapxoff: dc.w 0
  3267. mapzoff: dc.w 0
  3268.  
  3269. DRAWAtransLINE:
  3270.  
  3271.  move.l FASTBUFFER,a0    ; screen to render to.
  3272.  
  3273.  tst.b FULLSCR
  3274.  beq.s .nooffset
  3275.   
  3276.  add.l #(320*40)+(48*2),a0
  3277.   
  3278. .nooffset:
  3279.  
  3280.  cmp.w d1,d3
  3281.  bgt.s .okdown
  3282.  bne.s .aline
  3283.  cmp.w d0,d2
  3284.  beq.s NOLINEtrans 
  3285. .aline
  3286.  exg d0,d2
  3287.  exg d1,d3
  3288. .okdown
  3289.  
  3290.  move.w d1,d5
  3291.  muls #320,d5
  3292.  add.l d5,a0
  3293.  lea (a0,d0.w*2),a0
  3294.  
  3295.  sub.w d1,d3
  3296.  
  3297.  sub.w d0,d2
  3298.  bge.s downrighttrans
  3299.  
  3300. downlefttrans:
  3301.  neg.w d2
  3302.  cmp.w d2,d3
  3303.  bgt.s downmorelefttrans
  3304.  
  3305. downleftmoretrans:
  3306.  move.w #320,d6
  3307.  move.w d2,d0
  3308.  move.w d2,d7
  3309.  
  3310. .linelop:
  3311.  move.b (a0),d4
  3312.  move.b (a4,d4.w*2),(a0)
  3313.  subq #1,a0
  3314.  sub.w d3,d0
  3315.  bgt.s .noextra
  3316.  add.w d2,d0
  3317.  add.w d6,a0
  3318. .noextra:
  3319.  dbra d7,.linelop
  3320.  rts
  3321.  
  3322. downmorelefttrans:
  3323.  move.w #320,d6
  3324.  move.w d3,d0
  3325.  move.w d3,d7
  3326.  
  3327. .linelop:
  3328.  move.b (a0),d4
  3329.  move.b (a4,d4.w*2),(a0)
  3330.  add.w d6,a0
  3331.  sub.w d2,d0
  3332.  bgt.s .noextra
  3333.  add.w d3,d0
  3334.  subq #1,a0
  3335. .noextra:
  3336.  dbra d7,.linelop
  3337.  
  3338.  rts
  3339.  
  3340. downrighttrans:
  3341.  
  3342.  cmp.w d2,d3
  3343.  bgt.s downmorerighttrans
  3344.  
  3345. downrightmoretrans:
  3346.  move.w #320,d6
  3347.  move.w d2,d0
  3348.  move.w d2,d7
  3349.  
  3350. .linelop:
  3351.  move.b (a0),d4
  3352.  move.b (a4,d4.w*2),(a0)+
  3353.  sub.w d3,d0
  3354.  bgt.s .noextra
  3355.  add.w d2,d0
  3356.  add.w d6,a0
  3357. .noextra:
  3358.  dbra d7,.linelop
  3359.  
  3360.  rts
  3361.  
  3362. downmorerighttrans:
  3363.  move.w #320,d6
  3364.  move.w d3,d0
  3365.  move.w d3,d7
  3366.  
  3367. .linelop:
  3368.  move.b (a0),d4
  3369.  move.b (a4,d4.w*2),(a0)
  3370.  add.w d6,a0
  3371.  sub.w d2,d0
  3372.  bgt.s .noextra
  3373.  add.w d3,d0
  3374.  addq #1,a0
  3375. .noextra:
  3376.  dbra d7,.linelop
  3377.  
  3378.  rts
  3379.  
  3380. NOLINE:
  3381.  rts
  3382.  
  3383. DRAWAMAPLINE:
  3384.  
  3385.  
  3386.  move.l FASTBUFFER,a0    ; screen to render to.
  3387.  cmp.w d1,d3
  3388.  bgt.s .okdown
  3389.  bne.s .aline
  3390.  cmp.w d0,d2
  3391.  beq.s NOLINE 
  3392. .aline
  3393.  exg d0,d2
  3394.  exg d1,d3
  3395. .okdown
  3396.  
  3397.  move.w d1,d5
  3398.  muls #320,d5
  3399.  add.l d5,a0
  3400.  lea (a0,d0.w),a0
  3401.  
  3402.  sub.w d1,d3
  3403.  
  3404.  sub.w d0,d2
  3405.  bge.s downright
  3406.  
  3407. downleft:
  3408.  neg.w d2
  3409.  cmp.w d2,d3
  3410.  bgt.s downmoreleft
  3411.  
  3412. downleftmore:
  3413.  move.w #320,d6
  3414.  move.w d2,d0
  3415.  move.w d2,d7
  3416.  addq #1,a0
  3417.  
  3418. .linelop:
  3419.  move.b d4,-(a0)
  3420.  sub.w d3,d0
  3421.  bgt.s .noextra
  3422.  add.w d2,d0
  3423.  add.w d6,a0
  3424. .noextra:
  3425.  dbra d7,.linelop
  3426.  rts
  3427.  
  3428. downmoreleft:
  3429.  move.w #320,d6
  3430.  move.w d3,d0
  3431.  move.w d3,d7
  3432.  
  3433. .linelop:
  3434.  move.b d4,(a0)
  3435.  add.w d6,a0
  3436.  sub.w d2,d0
  3437.  bgt.s .noextra
  3438.  add.w d3,d0
  3439.  subq #1,a0
  3440. .noextra:
  3441.  dbra d7,.linelop
  3442.  
  3443.  rts
  3444.  
  3445. downright:
  3446.  
  3447.  cmp.w d2,d3
  3448.  bgt.s downmoreright
  3449.  
  3450. downrightmore:
  3451.  move.w #320,d6
  3452.  move.w d2,d0
  3453.  move.w d2,d7
  3454.  
  3455. .linelop:
  3456.  move.b d4,(a0)+
  3457.  sub.w d3,d0
  3458.  bgt.s .noextra
  3459.  add.w d2,d0
  3460.  add.w d6,a0
  3461. .noextra:
  3462.  dbra d7,.linelop
  3463.  
  3464.  rts
  3465.  
  3466. downmoreright:
  3467.  move.w #320,d6
  3468.  move.w d3,d0
  3469.  move.w d3,d7
  3470.  
  3471. .linelop:
  3472.  move.b d4,(a0)
  3473.  add.w d6,a0
  3474.  sub.w d2,d0
  3475.  bgt.s .noextra
  3476.  add.w d3,d0
  3477.  addq #1,a0
  3478. .noextra:
  3479.  dbra d7,.linelop
  3480.  
  3481.  rts
  3482.  
  3483. SAVETHESCREEN:
  3484.  
  3485.  move.l old,$dff080
  3486.  move.w #$8020,$dff000+intena
  3487.  
  3488.  move.l _IntuitionBase,a6
  3489.  jsr _LVORethinkDisplay(a6)
  3490.  
  3491.  move.l doslib,a6
  3492.  move.l #SAVENAME,d1
  3493.  move.l #1006,d2
  3494.  jsr -30(a6)
  3495.  move.l d0,handle
  3496.  
  3497.  move.l doslib,a6
  3498.  move.l #mt_init,d2
  3499.  move.l handle,d1
  3500.  move.l #10240*8,d3
  3501.  jsr _LVOWrite(a6)
  3502.  
  3503.  move.l doslib,a6
  3504.  move.l handle,d1
  3505.  jsr -36(a6)
  3506.  
  3507.  move.l doslib,a6
  3508.  move.l #200,d1
  3509.  jsr -198(a6) 
  3510.  
  3511.  move.w #$0020,$dff000+intena
  3512.  move.l #bigfield,$dff080
  3513.  
  3514.  add.b #1,SAVELETTER
  3515.  
  3516.  rts
  3517.  
  3518. SAVENAME: dc.b 'work:rawscrn'
  3519. SAVELETTER: dc.b 'd',0
  3520.  
  3521.  even
  3522.  
  3523.  include "ab3:source_4000/CHUNKY.s"
  3524.  
  3525.  
  3526. MASTERQUITTING: dc.b 0
  3527. SLAVEQUITTING: dc.b 0
  3528. MASTERPAUSE: dc.b 0
  3529. SLAVEPAUSE: dc.b 0
  3530.  
  3531. PAUSEOPTS:
  3532.  include "ab3:source_4000/pauseopts"
  3533.  
  3534. ENDZONE: dc.w 0
  3535.  
  3536. ENDZONES:
  3537. ; LEVEL 1
  3538.  dc.w -1
  3539. ; dc.w 55
  3540. ; LEVEL 2
  3541.  dc.w 149
  3542. ; LEVEL 3
  3543.  dc.w 155
  3544. ; LEVEL 4
  3545.  dc.w 107
  3546. ; LEVEL 5
  3547.  dc.w 67
  3548. ; LEVEL 6
  3549.  dc.w 132
  3550. ; LEVEL 7
  3551.  dc.w 203
  3552. ; LEVEL 8
  3553.  dc.w 166
  3554. ; LEVEL 9
  3555.  dc.w 118
  3556. ; LEVEL 10
  3557.  dc.w 102
  3558. ; LEVEL 11
  3559.  dc.w 103
  3560. ; LEVEL 12
  3561.  dc.w 2
  3562. ; LEVEL 13
  3563.  dc.w 98
  3564. ; LEVEL 14
  3565.  dc.w 0
  3566. ; LEVEL 15
  3567.  dc.w 148
  3568. ; LEVEL 16
  3569.  dc.w 103
  3570.  
  3571. ***************************************************************************
  3572. ***************************************************************************
  3573. ****************** End of Main Loop here ********************************** 
  3574. ***************************************************************************
  3575. ***************************************************************************
  3576.  
  3577. putinsmallscr:
  3578.  
  3579.  rts
  3580.  
  3581.  move.l #$1fe0000,statskip
  3582.  move.l #$1fe0000,statskip+4
  3583.  
  3584.  move.l #healthpal,a5
  3585. ; move.l COPSCRN1,a0
  3586. ; move.l COPSCRN2,a2
  3587.  move.w #scrheight-1,d0
  3588.  move.l #0,d6
  3589.  move.w #0,d3
  3590.  move.w #$2bdf,startwait
  3591.  move.w #$2d01,endwait
  3592. .fillcop
  3593.  move.w #$180,d1
  3594.  
  3595.  move.l a0,a1
  3596.  move.l a2,a3
  3597.  move.w #$10c,(a1)+
  3598.  move.w #$10c,(a3)+
  3599.  move.w d3,(a1)+
  3600.  move.w d3,(a3)+
  3601.  eor.w #$8000,d3
  3602.  
  3603.  move.w #$106,(a1)+
  3604.  move.w #$106,(a3)+
  3605.  move.w #$2c42,d5
  3606.  or.w d3,d5
  3607.  and.w #$fffe,d5
  3608.  move.w d5,(a1)+
  3609.  move.w d5,(a3)+
  3610.  bsr do32
  3611.  
  3612.  move.w #$106,(a1)+
  3613.  move.w #$106,(a3)+
  3614.  move.w #$4c42,d5
  3615.  or.w d3,d5
  3616.  and.w #$fffe,d5
  3617.  move.w d5,(a1)+
  3618.  move.w d5,(a3)+
  3619.  bsr do32
  3620.  
  3621.  move.w #$106,(a1)+
  3622.  move.w #$106,(a3)+
  3623.  move.w #$6c42,d5
  3624.  or.w d3,d5
  3625.  and.w #$fffe,d5
  3626.  move.w d5,(a1)+
  3627.  move.w d5,(a3)+
  3628.  bsr do32
  3629.  
  3630.  
  3631.  move.l #$1060c42,(a1)+
  3632.  move.l #$1060c42,(a3)+
  3633.  move.w #$19e,(a1)+
  3634.  move.w (a5),(a1)+
  3635.  move.w #$19e,(a3)+
  3636.  move.w (a5)+,(a3)+
  3637.  
  3638. **********************************
  3639.  
  3640.  adda.w #104*4,a0
  3641.  adda.w #104*4,a2
  3642.  dbra d0,.fillcop
  3643.  
  3644.  move.w #$48,fetchstart
  3645.  move.w #$88,fetchstop
  3646.  move.w #$2cb1,winstart
  3647.  move.w #$2c91,winstop
  3648.  move.w #-24,modulo
  3649.  move.w #-24,modulo+4
  3650.  
  3651.  move.l #nullspr,d0
  3652.  move.w d0,s4l
  3653.  move.w d0,s5l
  3654.  move.w d0,s6l
  3655.  move.w d0,s7l
  3656.  swap d0
  3657.  move.w d0,s4h
  3658.  move.w d0,s5h
  3659.  move.w d0,s6h
  3660.  move.w d0,s7h 
  3661.  
  3662. ; move.l #borders,d0
  3663. ; move.w d0,s0l
  3664. ; swap d0
  3665. ; move.w d0,s0h
  3666. ; move.l #borders+2592,d0
  3667. ; move.w d0,s1l
  3668. ; swap d0
  3669. ; move.w d0,s1h
  3670. ; move.l #borders+2592*2,d0
  3671. ; move.w d0,s2l
  3672. ; swap d0
  3673. ; move.w d0,s2h
  3674. ; move.l #borders+2592*3,d0
  3675. ; move.w d0,s3l
  3676. ; swap d0
  3677. ; move.w d0,s3h
  3678.  
  3679.  
  3680.  move.l scrn,a0
  3681.  add.l #40,a0
  3682.  move.l scrn,a1
  3683.  add.l #160,a1
  3684.  move.l scrn,a2
  3685.  add.l #280,a2
  3686.  move.l #smallscrntab,a3
  3687.  move.w #191,d7    ; counter
  3688.  move.w #0,d1    ; xpos
  3689. .plotscrnloop:
  3690.  move.b (a3)+,d0
  3691.  move.w d1,d2
  3692.  asr.w #3,d2
  3693.  move.b d1,d3
  3694.  not.b d3
  3695.  bclr.b d3,-40(a0,d2.w)
  3696.  bclr.b d3,(a0,d2.w)
  3697.  bclr.b d3,40(a0,d2.w)
  3698.  bclr.b d3,-40(a1,d2.w)
  3699.  bclr.b d3,(a1,d2.w)
  3700.  bclr.b d3,40(a1,d2.w)
  3701.  bclr.b d3,-40(a2,d2.w)
  3702.  btst #0,d0
  3703.  beq.s .nobp1
  3704.  bset.b d3,-40(a0,d2.w)
  3705. .nobp1:
  3706.  btst #1,d0
  3707.  beq.s .nobp2
  3708.  bset.b d3,(a0,d2.w)
  3709. .nobp2:
  3710.  btst #2,d0
  3711.  beq.s .nobp3
  3712.  bset.b d3,40(a0,d2.w)
  3713. .nobp3:
  3714.  btst #3,d0
  3715.  beq.s .nobp4
  3716.  bset.b d3,-40(a1,d2.w)
  3717. .nobp4:
  3718.  btst #4,d0
  3719.  beq.s .nobp5
  3720.  bset.b d3,(a1,d2.w)
  3721. .nobp5:
  3722.  btst #5,d0
  3723.  beq.s .nobp6
  3724.  bset.b d3,40(a1,d2.w)
  3725. .nobp6:
  3726.  btst #6,d0
  3727.  beq.s .nobp7
  3728.  bset.b d3,-40(a2,d2.w)
  3729. .nobp7:
  3730.  
  3731.  addq #1,d1
  3732.  
  3733.  dbra d7,.plotscrnloop
  3734.  
  3735.  
  3736.  rts
  3737.  
  3738. putinlargescr:
  3739.  
  3740.  move.l #$1000000,statskip
  3741.  move.l #$fffffffe,statskip+4
  3742.  
  3743.  move.l #healthpal,a5
  3744. ; move.l COPSCRN1,a0
  3745. ; move.l COPSCRN2,a2
  3746.  move.w #scrheight-1,d0
  3747.  move.l #0,d6
  3748.  move.w #0,d3
  3749.  move.w #$29df,startwait
  3750.  move.w #$2b01,endwait
  3751. .fillcop
  3752.  move.w #$180,d1
  3753.  
  3754.  move.l a0,a1
  3755.  move.l a2,a3
  3756.  move.w #$10c,(a1)+
  3757.  move.w #$10c,(a3)+
  3758.  move.w d3,(a1)+
  3759.  move.w d3,(a3)+
  3760.  eor.w #$8000,d3
  3761.  
  3762.  move.w #$106,(a1)+
  3763.  move.w #$106,(a3)+
  3764.  move.w #$2c42,d5
  3765.  or.w d3,d5
  3766.  and.w #$fffe,d5
  3767.  move.w d5,(a1)+
  3768.  move.w d5,(a3)+
  3769.  bsr do32
  3770.  
  3771.  move.w #$106,(a1)+
  3772.  move.w #$106,(a3)+
  3773.  move.w #$4c42,d5
  3774.  or.w d3,d5
  3775.  and.w #$fffe,d5
  3776.  move.w d5,(a1)+
  3777.  move.w d5,(a3)+
  3778.  bsr do32
  3779.  
  3780.  move.w #$106,(a1)+
  3781.  move.w #$106,(a3)+
  3782.  move.w #$6c42,d5
  3783.  or.w d3,d5
  3784.  and.w #$fffe,d5
  3785.  move.w d5,(a1)+
  3786.  move.w d5,(a3)+
  3787.  bsr do32
  3788.  
  3789.  move.w startwait,(a1)+
  3790.  move.w #$fffe,(a1)+
  3791.  move.w endwait,(a1)+
  3792.  move.w #$ff00,(a1)+
  3793.  move.w startwait,(a3)+
  3794.  move.w #$fffe,(a3)+
  3795.  move.w endwait,(a3)+
  3796.  move.w #$ff00,(a3)+
  3797.  
  3798. ; move.l $1fe0000,(a1)+
  3799. ; move.l $1fe0000,(a3)+
  3800. ; move.l $1fe0000,(a1)+
  3801. ; move.l $1fe0000,(a3)+
  3802.  
  3803.  
  3804.  add.w #$300,startwait
  3805.  add.w #$300,endwait
  3806.  
  3807. ; move.l #$1060c42,(a1)+
  3808. ; move.l #$1060c42,(a3)+
  3809. ; move.w #$19e,(a1)+
  3810. ; move.w (a5),(a1)+
  3811. ; move.w #$19e,(a3)+
  3812. ; move.w (a5)+,(a3)+
  3813.  
  3814. **********************************
  3815.  
  3816.  adda.w #104*4,a0
  3817.  adda.w #104*4,a2
  3818.  dbra d0,.fillcop
  3819.  
  3820.  move.w #$38,fetchstart
  3821.  move.w #$b8,fetchstop
  3822.  move.w #$2c81,winstart
  3823.  move.w #$2cc1,winstop
  3824.  move.w #-40,modulo
  3825.  move.w #-40,modulo+4
  3826.  
  3827.  move.l #nullspr,d0
  3828.  move.w d0,s0l
  3829.  move.w d0,s1l
  3830.  move.w d0,s2l
  3831.  move.w d0,s3l
  3832.  move.w d0,s4l
  3833.  move.w d0,s5l
  3834.  move.w d0,s6l
  3835.  move.w d0,s7l
  3836.  swap d0
  3837.  move.w d0,s0h
  3838.  move.w d0,s1h
  3839.  move.w d0,s2h
  3840.  move.w d0,s3h
  3841.  move.w d0,s4h
  3842.  move.w d0,s5h
  3843.  move.w d0,s6h
  3844.  move.w d0,s7h 
  3845.  
  3846.  move.l scrn,a0
  3847.  move.l a0,a1
  3848.  move.l a0,a2
  3849.  add.l #40,a0
  3850.  add.l #160,a1
  3851.  add.l #280,a2
  3852.  move.l #scrntab,a3
  3853.  move.w #319,d7    ; counter
  3854.  move.w #0,d1    ; xpos
  3855. .plotscrnloop:
  3856.  move.b (a3)+,d0
  3857.  move.w d1,d2
  3858.  asr.w #3,d2
  3859.  move.b d1,d3
  3860.  not.b d3
  3861.  bclr.b d3,-40(a0,d2.w)
  3862.  bclr.b d3,(a0,d2.w)
  3863.  bclr.b d3,40(a0,d2.w)
  3864.  bclr.b d3,-40(a1,d2.w)
  3865.  bclr.b d3,(a1,d2.w)
  3866.  bclr.b d3,40(a1,d2.w)
  3867.  bclr.b d3,-40(a2,d2.w)
  3868.  btst #0,d0
  3869.  beq.s .nobp1
  3870.  bset.b d3,-40(a0,d2.w)
  3871. .nobp1:
  3872.  btst #1,d0
  3873.  beq.s .nobp2
  3874.  bset.b d3,(a0,d2.w)
  3875. .nobp2:
  3876.  btst #2,d0
  3877.  beq.s .nobp3
  3878.  bset.b d3,40(a0,d2.w)
  3879. .nobp3:
  3880.  btst #3,d0
  3881.  beq.s .nobp4
  3882.  bset.b d3,-40(a1,d2.w)
  3883. .nobp4:
  3884.  btst #4,d0
  3885.  beq.s .nobp5
  3886.  bset.b d3,(a1,d2.w)
  3887. .nobp5:
  3888.  btst #5,d0
  3889.  beq.s .nobp6
  3890.  bset.b d3,40(a1,d2.w)
  3891. .nobp6:
  3892.  btst #6,d0
  3893.  beq.s .nobp7
  3894.  bset.b d3,-40(a2,d2.w)
  3895. .nobp7:
  3896.  
  3897.  addq #1,d1
  3898.  
  3899.  dbra d7,.plotscrnloop
  3900.  
  3901.  rts
  3902.  
  3903. CLEARKEYBOARD:
  3904.  move.l #KeyMap,a5
  3905.  moveq #0,d0
  3906.  move.w #15,d1
  3907. clrloo:
  3908.  move.l d0,(a5)+
  3909.  move.l d0,(a5)+
  3910.  move.l d0,(a5)+
  3911.  move.l d0,(a5)+
  3912.  dbra d1,clrloo
  3913.  rts
  3914.  
  3915. READCONTROLS: dc.w 0
  3916.  
  3917. tstststst: dc.w 0
  3918.  
  3919. BollocksRoom:
  3920.  dc.w -1
  3921.  ds.l 50
  3922.  
  3923. GUNYOFFS:
  3924.  dc.w 20
  3925.  dc.w 20
  3926.  dc.w 0
  3927.  dc.w 20
  3928.  dc.w 20
  3929.  dc.w 0
  3930.  dc.w 0
  3931.  dc.w 20
  3932.  
  3933. PLR1_BOBBLEY: dc.l 0
  3934. PLR2_BOBBLEY: dc.l 0
  3935.  
  3936. USEPLR1:
  3937.  
  3938. ***********************************
  3939.  
  3940.  move.l PLR1_Obj,a0 
  3941.  move.b #4,16(a0)
  3942.  move.l ObjectPoints,a1
  3943.  move.l #ObjRotated,a2
  3944.  move.w (a0),d0
  3945.  move.l PLR1_xoff,(a1,d0.w*8)
  3946.  move.l PLR1_zoff,4(a1,d0.w*8)
  3947.  move.l PLR1_Roompt,a1
  3948.  
  3949.  moveq #0,d2
  3950.  move.b damagetaken(a0),d2
  3951.  beq .notbeenshot
  3952.  
  3953.  moveq #0,d4
  3954.  move.w ImpactX(a0),d3
  3955.  beq.s .notwist
  3956.  move.w d2,d4
  3957. .notwist:
  3958.  add.w d3,PLR1s_xspdval
  3959.  move.w ImpactZ(a0),d3
  3960.  beq.s .notwist2
  3961.  move.w d2,d4
  3962. .notwist2:
  3963.  add.w d3,PLR1s_zspdval
  3964.  move.w ImpactY(a0),d3
  3965.  ext.l d3
  3966.  asl.l #8,d3
  3967.  add.l d3,PLR1s_yvel
  3968.  
  3969.  move.w #0,ImpactX(a0)
  3970.  move.w #0,ImpactY(a0)
  3971.  move.w #0,ImpactZ(a0)
  3972.  
  3973.  jsr GetRand
  3974.  muls d4,d0
  3975.  asr.l #8,d0
  3976.  asr.l #4,d0
  3977.  add.w d0,PLR1s_angspd
  3978.  
  3979.  move.l #7*2116,hitcol
  3980.  sub.w d2,PLAYERONEHEALTH
  3981.  movem.l d0-d7/a0-a6,-(a7)
  3982.  move.b #$fb,IDNUM
  3983.  move.w #19,Samplenum
  3984.  clr.b notifplaying
  3985.  move.w #0,Noisex
  3986.  move.w #0,Noisez
  3987.  move.w #100,Noisevol
  3988.  jsr MakeSomeNoise
  3989.  
  3990.  movem.l (a7)+,d0-d7/a0-a6
  3991.  
  3992. .notbeenshot
  3993.  move.b #0,damagetaken(a0)
  3994.  move.b #10,numlives(a0)
  3995.  
  3996.  move.w p1_angpos,Facing(a0)
  3997.  move.b PLR1_StoodInTop,ObjInTop(a0)
  3998.  
  3999.  move.w (a1),12(a0)
  4000.  move.w (a1),d2
  4001.  move.l #ZoneBrightTable,a1
  4002.  move.l (a1,d2.w*4),d2
  4003.  tst.b PLR1_StoodInTop
  4004.  bne.s .okinbott
  4005.  swap d2
  4006. .okinbott:
  4007.  
  4008.  move.w d2,2(a0)
  4009.  
  4010.  
  4011.  move.l p1_yoff,d0
  4012.  move.l p1_height,d1
  4013.  asr.l #1,d1
  4014.  add.l d1,d0
  4015.  asr.l #7,d0
  4016.  move.w d0,4(a0)
  4017.  
  4018. ***********************************
  4019.  
  4020.  move.l PLR2_Obj,a0 
  4021.  move.b #5,16(a0)
  4022.  
  4023.  move.w p2_angpos,d0
  4024.  and.w #8190,d0
  4025.  move.w d0,Facing(a0)
  4026. ; 
  4027. ; jsr ViewpointToDraw
  4028. ; asl.w #2,d0
  4029. ; moveq #0,d1
  4030. ; move.b p2_bobble,d1
  4031. ; not.b d1
  4032. ; lsr.b #3,d1
  4033. ; and.b #$3,d1
  4034. ; add.w d1,d0
  4035. ; move.w d0,10(a0)
  4036. ; move.w #10,8(a0)
  4037. ; 
  4038.  
  4039.  move.l ObjectPoints,a1
  4040.  move.l #ObjRotated,a2
  4041.  move.w (a0),d0
  4042.  move.l PLR2_xoff,(a1,d0.w*8)
  4043.  move.l PLR2_zoff,4(a1,d0.w*8)
  4044.  move.l PLR2_Roompt,a1
  4045.  
  4046.  moveq #0,d2
  4047.  move.b damagetaken(a0),d2
  4048.  beq .notbeenshot2
  4049.  move.w ImpactX(a0),d3
  4050.  add.w d3,PLR2s_xspdval
  4051.  move.w ImpactZ(a0),d3
  4052.  add.w d3,PLR2s_zspdval
  4053.  move.w ImpactY(a0),d3
  4054.  ext.l d3
  4055.  asl.l #8,d3
  4056.  add.l d3,PLR2s_yvel
  4057.  
  4058.  move.w #0,ImpactX(a0)
  4059.  move.w #0,ImpactY(a0)
  4060.  move.w #0,ImpactZ(a0)
  4061.  
  4062.  sub.w d2,PLAYERTWOHEALTH
  4063. .notbeenshot2
  4064.  move.b #0,damagetaken(a0)
  4065.  move.b #10,numlives(a0)
  4066.  
  4067.  move.b PLR2_StoodInTop,ObjInTop(a0)
  4068.  
  4069.  move.w (a1),12(a0)
  4070.  move.w (a1),d2
  4071.  move.l #ZoneBrightTable,a1
  4072.  move.l (a1,d2.w*4),d2
  4073.  tst.b PLR2_StoodInTop
  4074.  bne.s .okinbott2
  4075.  swap d2
  4076. .okinbott2:
  4077.  
  4078.  move.w d2,2(a0)
  4079.  
  4080.  move.l p2_yoff,d0
  4081.  move.l p2_height,d1
  4082.  asr.l #1,d1
  4083.  add.l d1,d0
  4084.  asr.l #7,d0
  4085.  move.w d0,4(a0)
  4086.  
  4087.  jsr ViewpointToDraw
  4088.  add.l d0,d0
  4089.  
  4090.  move.l LINKFILE,a6
  4091.  add.l #PLR2ALIEN,a6
  4092.  move.w (a6),d7
  4093.  move.w d7,d1
  4094.  
  4095.  move.l LINKFILE,a6
  4096.  add.l #AlienStats,a6
  4097.  muls #AlienStatLen,d1
  4098.  add.l d1,a6
  4099.  move.b A_GFXType+1(a6),VECOBJ
  4100.  cmp.w #1,A_GFXType(a6)
  4101.  bne.s .NOSIDES2
  4102.  
  4103.  moveq #0,d0
  4104.  
  4105. .NOSIDES2:
  4106.  
  4107.  move.l LINKFILE,a6
  4108.  
  4109.  add.l #AlienAnimData,a6
  4110.  
  4111.  move.w d7,d1
  4112.  muls #A_AnimLen,d1
  4113.  add.l d1,a6
  4114.  
  4115. ; move.l ANIMPOINTER,a6
  4116.  
  4117.  muls #A_OptLen,d0
  4118.  add.w d0,a6
  4119.  
  4120.  move.w SecTimer(a0),d1
  4121.  move.w d1,d2
  4122.  muls #A_FrameLen,d1
  4123.  
  4124.  addq #1,d2
  4125.  
  4126.  move.w d2,d3
  4127.  muls #A_FrameLen,d3
  4128.  tst.b (a6,d3.w)
  4129.  bge.s .noendanim
  4130.  move.w #0,d2
  4131. .noendanim
  4132.  move.w d2,SecTimer(a0)
  4133.  
  4134.  move.w d2,d1
  4135.  
  4136.  muls #A_FrameLen,d1
  4137.  
  4138.  move.l #0,8(a0)
  4139.  move.b (a6,d1.w),9(a0)
  4140.  move.b 1(a6,d1.w),d0
  4141.  ext.w d0
  4142.  bgt.s .noflip
  4143.  move.b #128,10(a0)
  4144.  neg.w d0
  4145. .noflip:
  4146.  sub.w #1,d0
  4147.  move.b d0,11(a0)
  4148.  
  4149.  move.w #-1,6(a0)
  4150.  cmp.b #1,VECOBJ
  4151.  beq.s .nosize
  4152.  bgt.s .setlight
  4153.  move.w 2(a6,d1.w),6(a0)
  4154.  bra.s .ddone
  4155.  
  4156. .nosize
  4157.  
  4158. ; move.l #$00090001,8(a0)
  4159.  
  4160.  bra.s .ddone
  4161.  
  4162. .setlight:
  4163.  move.w 2(a6,d1.w),6(a0)
  4164.  
  4165.  move.b VECOBJ,d1
  4166.  or.b d1,10(a0)
  4167.  
  4168. .ddone:
  4169.  
  4170.  
  4171. **********************************
  4172.  
  4173.  move.l PLR1_Obj,a0
  4174.  
  4175.  ifeq CHEESEY
  4176.  
  4177.  tst.w PLAYERONEHEALTH
  4178.  bgt.s .notdead
  4179.  
  4180.  move.w #-1,12+128(a0)
  4181.  rts
  4182.  
  4183. .notdead: 
  4184.  
  4185.  move.l PLR1_Roompt,a1
  4186.  
  4187.  move.w Facing(a0),d0
  4188.  add.w #4096,d0
  4189.  and.w #8190,d0
  4190.  move.w d0,Facing+128(a0)
  4191.  
  4192.  move.w (a1),12+128(a0)
  4193.  move.w (a1),GraphicRoom+128(a0)
  4194.  
  4195.  moveq #0,d0
  4196.  move.b p1_gunselected,d0
  4197.  
  4198.  move.l LINKFILE,a1
  4199.  add.l #GunObjects,a1
  4200.  move.w (a1,d0.w*2),d0
  4201.  
  4202.  move.b d0,TypeOfThing+128(a0)
  4203.  move.b #1,128+16(a0)
  4204.  
  4205.  move.w (a0),d0
  4206.  move.w 128(a0),d1
  4207.  move.l ObjectPoints,a1
  4208.  move.l (a1,d0.w*8),(a1,d1.w*8)
  4209.  move.l 4(a1,d0.w*8),4(a1,d1.w*8)
  4210.  
  4211.  st WhichAnim+128(a0)
  4212.  
  4213.  move.l p1_yoff,d0
  4214.  move.l p1_height,d1
  4215.  asr.l #2,d1
  4216.  add.l #10*128,d1
  4217.  add.l d1,d0
  4218.  asr.l #7,d0
  4219.  move.w d0,4+128(a0)
  4220.  move.l PLR1_BOBBLEY,d1
  4221.  asr.l #8,d1
  4222.  move.l d1,d0
  4223.  asr.l #1,d0
  4224.  add.l d0,d1
  4225.  add.w d1,4+128(a0)
  4226.  
  4227.  move.b ObjInTop(a0),ObjInTop+128(a0)
  4228.  
  4229.  endc
  4230.  
  4231.  ifne CHEESEY
  4232.  move.w #-1,12+128(a0)
  4233.  endc
  4234.  
  4235.  rts
  4236.  
  4237. ***************************************************
  4238. **************************************************
  4239.  
  4240. USEPLR2:
  4241.  
  4242. ***********************************
  4243.  
  4244.  move.l PLR2_Obj,a0 
  4245.  move.b #5,16(a0)
  4246.  move.l ObjectPoints,a1
  4247.  move.l #ObjRotated,a2
  4248.  move.w (a0),d0
  4249.  move.l PLR2_xoff,(a1,d0.w*8)
  4250.  move.l PLR2_zoff,4(a1,d0.w*8)
  4251.  move.l PLR2_Roompt,a1
  4252.  
  4253.  moveq #0,d2
  4254.  move.b damagetaken(a0),d2
  4255.  beq .notbeenshot
  4256.  
  4257.  moveq #0,d4
  4258.  move.w ImpactX(a0),d3
  4259.  beq.s .notwist
  4260.  move.w d2,d4
  4261. .notwist:
  4262.  add.w d3,PLR2s_xspdval
  4263.  move.w ImpactZ(a0),d3
  4264.  beq.s .notwist2
  4265.  move.w d2,d4
  4266. .notwist2:
  4267.  add.w d3,PLR2s_zspdval
  4268.  
  4269.  jsr GetRand
  4270.  muls d4,d0
  4271.  asr.l #8,d0
  4272.  asr.l #4,d0
  4273.  add.w d0,PLR2s_angspd
  4274.  
  4275.  move.l #7*2116,hitcol
  4276.  sub.w d2,PLAYERTWOHEALTH
  4277.  movem.l d0-d7/a0-a6,-(a7)
  4278.  move.w #19,Samplenum
  4279.  clr.b notifplaying
  4280.  move.b #$fb,IDNUM
  4281.  move.w #0,Noisex
  4282.  move.w #0,Noisez
  4283.  move.w #100,Noisevol
  4284.  jsr MakeSomeNoise
  4285.  
  4286.  movem.l (a7)+,d0-d7/a0-a6
  4287.  
  4288. .notbeenshot
  4289.  move.b #0,damagetaken(a0)
  4290.  move.b #10,numlives(a0)
  4291.  
  4292.  move.w p2_angpos,Facing(a0)
  4293.  move.b PLR2_StoodInTop,ObjInTop(a0)
  4294.  
  4295.  move.w (a1),12(a0)
  4296.  move.w (a1),d2
  4297.  move.l #ZoneBrightTable,a1
  4298.  move.l (a1,d2.w*4),d2
  4299.  tst.b PLR2_StoodInTop
  4300.  bne.s .okinbott
  4301.  swap d2
  4302. .okinbott:
  4303.  
  4304.  move.w d2,2(a0)
  4305.  
  4306.  move.l PLR2_yoff,d0
  4307.  move.l p2_height,d1
  4308.  asr.l #1,d1
  4309.  add.l d1,d0
  4310.  asr.l #7,d0
  4311.  move.w d0,4(a0)
  4312.  
  4313. ***********************************
  4314.  
  4315.  move.l PLR1_Obj,a0 
  4316.  move.b #4,16(a0)
  4317.  
  4318.  move.w PLR1_angpos,d0
  4319.  and.w #8190,d0
  4320.  move.w d0,Facing(a0)
  4321. ; 
  4322. ; jsr ViewpointToDraw
  4323. ; asl.w #2,d0
  4324. ; moveq #0,d1
  4325. ; move.b p2_bobble,d1
  4326. ; not.b d1
  4327. ; lsr.b #3,d1
  4328. ; and.b #$3,d1
  4329. ; add.w d1,d0
  4330. ; move.w d0,10(a0)
  4331. ; move.w #10,8(a0)
  4332. ; 
  4333.  
  4334.  move.l ObjectPoints,a1
  4335.  move.l #ObjRotated,a2
  4336.  move.w (a0),d0
  4337.  move.l PLR1_xoff,(a1,d0.w*8)
  4338.  move.l PLR1_zoff,4(a1,d0.w*8)
  4339.  move.l PLR1_Roompt,a1
  4340.  
  4341.  moveq #0,d2
  4342.  move.b damagetaken(a0),d2
  4343.  beq .notbeenshot2
  4344.  
  4345.  move.w ImpactX(a0),d3
  4346.  add.w d3,PLR1s_xspdval
  4347.  move.w ImpactZ(a0),d3
  4348.  add.w d3,PLR1s_zspdval
  4349.  
  4350.  sub.w d2,PLAYERONEHEALTH
  4351. .notbeenshot2
  4352.  move.b #0,damagetaken(a0)
  4353.  move.b #10,numlives(a0)
  4354.  
  4355.  move.b PLR1_StoodInTop,ObjInTop(a0)
  4356.  
  4357.  move.w (a1),12(a0)
  4358.  move.w (a1),d2
  4359.  move.l #ZoneBrightTable,a1
  4360.  move.l (a1,d2.w*4),d2
  4361.  tst.b PLR1_StoodInTop
  4362.  bne.s .okinbott2
  4363.  swap d2
  4364. .okinbott2:
  4365.  
  4366.  move.w d2,2(a0)
  4367.  
  4368.  move.l p1_yoff,d0
  4369.  move.l p1_height,d1
  4370.  asr.l #1,d1
  4371.  add.l d1,d0
  4372.  asr.l #7,d0
  4373.  move.w d0,4(a0)
  4374.  
  4375.  jsr ViewpointToDraw
  4376.  add.l d0,d0
  4377.  
  4378.  move.l LINKFILE,a6
  4379.  add.l #PLR1ALIEN,a6
  4380.  move.w (a6),d7
  4381.  move.w d7,d1
  4382.  
  4383.  move.l LINKFILE,a6
  4384.  add.l #AlienStats,a6
  4385.  muls #AlienStatLen,d1
  4386.  add.l d1,a6
  4387.  move.b A_GFXType+1(a6),VECOBJ
  4388.  cmp.w #1,A_GFXType(a6)
  4389.  bne.s .NOSIDES2
  4390.  
  4391.  moveq #0,d0
  4392.  
  4393. .NOSIDES2:
  4394.  
  4395.  move.l LINKFILE,a6
  4396.  
  4397.  add.l #AlienAnimData,a6
  4398.  
  4399.  move.w d7,d1
  4400.  muls #A_AnimLen,d1
  4401.  add.l d1,a6
  4402.  
  4403. ; move.l ANIMPOINTER,a6
  4404.  
  4405.  muls #A_OptLen,d0
  4406.  add.w d0,a6
  4407.  
  4408.  move.w SecTimer(a0),d1
  4409.  move.w d1,d2
  4410.  muls #A_FrameLen,d1
  4411.  
  4412.  addq #1,d2
  4413.  
  4414.  move.w d2,d3
  4415.  muls #A_FrameLen,d3
  4416.  tst.b (a6,d3.w)
  4417.  bge.s .noendanim
  4418.  move.w #0,d2
  4419. .noendanim
  4420.  move.w d2,SecTimer(a0)
  4421.  
  4422.  move.w d2,d1
  4423.  
  4424.  muls #A_FrameLen,d1
  4425.  
  4426.  move.l #0,8(a0)
  4427.  move.b (a6,d1.w),9(a0)
  4428.  move.b 1(a6,d1.w),d0
  4429.  ext.w d0
  4430.  bgt.s .noflip
  4431.  move.b #128,10(a0)
  4432.  neg.w d0
  4433. .noflip:
  4434.  sub.w #1,d0
  4435.  move.b d0,11(a0)
  4436.  
  4437.  move.w #-1,6(a0)
  4438.  cmp.b #1,VECOBJ
  4439.  beq.s .nosize
  4440.  bgt.s .setlight
  4441.  move.w 2(a6,d1.w),6(a0)
  4442.  bra.s .ddone
  4443.  
  4444. .nosize
  4445.  
  4446. ; move.l #$00090001,8(a0)
  4447.  
  4448.  bra.s .ddone
  4449.  
  4450. .setlight:
  4451.  move.w 2(a6,d1.w),6(a0)
  4452.  
  4453.  move.b VECOBJ,d1
  4454.  or.b d1,10(a0)
  4455.  
  4456. .ddone:
  4457.  
  4458. **********************************
  4459.  
  4460.  move.l PLR2_Obj,a0
  4461.  
  4462.  ifeq CHEESEY
  4463.  
  4464.  tst.w PLAYERTWOHEALTH
  4465.  bgt.s .notdead
  4466.  
  4467.  move.w #-1,12+64(a0)
  4468.  rts
  4469.  
  4470. .notdead: 
  4471.  move.l PLR2_Roompt,a1
  4472.  
  4473.  move.w Facing(a0),d0
  4474.  add.w #4096,d0
  4475.  and.w #8190,d0
  4476.  move.w d0,Facing+64(a0)
  4477.  
  4478.  move.w (a1),12+64(a0)
  4479.  move.w (a1),GraphicRoom+64(a0)
  4480.  
  4481.  moveq #0,d0
  4482.  move.b p2_gunselected,d0
  4483.  
  4484.  move.l LINKFILE,a1
  4485.  add.l #GunObjects,a1
  4486.  move.w (a1,d0.w*2),d0
  4487.  
  4488.  move.b d0,TypeOfThing+64(a0)
  4489.  move.b #1,64+16(a0)
  4490.  
  4491.  move.w (a0),d0
  4492.  move.w 64(a0),d1
  4493.  move.l ObjectPoints,a1
  4494.  move.l (a1,d0.w*8),(a1,d1.w*8) 
  4495.  move.l 4(a1,d0.w*8),4(a1,d1.w*8) 
  4496.  
  4497.  st WhichAnim+64(a0)
  4498.  
  4499.  move.l p2_yoff,d0
  4500.  move.l p2_height,d1
  4501.  asr.l #2,d1
  4502.  add.l #10*128,d1
  4503.  add.l d1,d0
  4504.  asr.l #7,d0
  4505.  move.w d0,4+64(a0)
  4506.  move.l PLR2_BOBBLEY,d1
  4507.  asr.l #8,d1
  4508.  move.l d1,d0
  4509.  asr.l #1,d0
  4510.  add.l d0,d1
  4511.  add.w d1,4+64(a0)
  4512.  
  4513.  move.b ObjInTop(a0),ObjInTop+64(a0)
  4514.  
  4515.  endc
  4516.  
  4517.  ifne CHEESEY
  4518.  
  4519.  move.w #-1,12+64(a0)
  4520.  endc
  4521.  
  4522.  rts
  4523.  
  4524.  
  4525.  
  4526. GunSelected: dc.b 0
  4527.  even
  4528.  
  4529.  
  4530. GunData: dc.l 0
  4531.  
  4532.  
  4533. protA: dc.w 0
  4534.  
  4535. Path:
  4536. ; incbin "testpath"
  4537. endpath:
  4538. pathpt: dc.l Path
  4539.  
  4540.  
  4541. PLR1KEYS: dc.b 0
  4542. PLR1PATH: dc.b 0
  4543. PLR1MOUSE: dc.b -1
  4544. PLR1JOY: dc.b 0
  4545. PLR2KEYS: dc.b 0
  4546. PLR2PATH: dc.b 0
  4547. PLR2MOUSE: dc.b -1
  4548. PLR2JOY: dc.b 0
  4549.  
  4550.  even
  4551.  
  4552. PLR1_bobble: dc.w 0
  4553. PLR2_bobble: dc.w 0
  4554. xwobble: dc.l 0
  4555. xwobxoff: dc.w 0
  4556.  
  4557. xwobzoff: dc.w 0
  4558.  
  4559. PLR1_Control:
  4560.  
  4561. ; Take a snapshot of everything.
  4562.  
  4563.  move.l PLR1_xoff,d2
  4564.  move.l d2,PLR1_oldxoff
  4565.  move.l d2,oldx
  4566.  move.l PLR1_zoff,d3
  4567.  move.l d3,PLR1_oldzoff
  4568.  move.l d3,oldz
  4569.  move.l p1_xoff,d0
  4570.  move.l d0,PLR1_xoff
  4571.  move.l d0,newx
  4572.  move.l p1_zoff,d1
  4573.  move.l d1,newz
  4574.  move.l d1,PLR1_zoff
  4575.  
  4576.  move.l p1_height,PLR1_height
  4577.  
  4578.  sub.l d2,d0
  4579.  sub.l d3,d1
  4580.  move.l d0,xdiff
  4581.  move.l d1,zdiff
  4582.  move.w p1_angpos,d0
  4583.  move.w d0,PLR1_angpos
  4584.  
  4585.  move.l #SineTable,a1
  4586.  move.w (a1,d0.w),PLR1_sinval
  4587.  add.w #2048,d0
  4588.  and.w #8190,d0
  4589.  move.w (a1,d0.w),PLR1_cosval
  4590.  
  4591.  move.l p1_yoff,d0
  4592.  move.w p1_bobble,d1
  4593.  move.w (a1,d1.w),d1
  4594.  move.w d1,d3
  4595.  ble.s .notnegative
  4596.  neg.w d1
  4597. .notnegative:
  4598.  add.w #16384,d1
  4599.  asr.w #4,d1
  4600.  
  4601.  tst.b PLR1_Ducked
  4602.  bne.s .notdouble
  4603.  add.w d1,d1
  4604. .notdouble
  4605.  ext.l d1
  4606.  
  4607.  move.l d1,PLR1_BOBBLEY
  4608.  
  4609.  move.l PLR1_height,d4
  4610.  sub.l d1,d4
  4611.  add.l d1,d0
  4612.  
  4613.  cmp.b #'s',mors
  4614.  beq.s .otherwob
  4615.  asr.w #6,d3
  4616.  ext.l d3
  4617.  move.l d3,xwobble
  4618.  move.w PLR1_sinval,d1
  4619.  muls d3,d1
  4620.  move.w PLR1_cosval,d2
  4621.  muls d3,d2
  4622.  swap d1
  4623.  swap d2
  4624.  asr.w #7,d1
  4625.  move.w d1,xwobxoff
  4626.  asr.w #7,d2
  4627.  neg.w d2
  4628.  move.w d2,xwobzoff
  4629. .otherwob
  4630.  
  4631.  move.l d0,PLR1_yoff
  4632.  move.l d0,newy
  4633.  move.l d0,oldy
  4634.  
  4635.  move.l d4,thingheight
  4636.  move.l #40*256,StepUpVal
  4637.  tst.b PLR1_Ducked
  4638.  beq.s .okbigstep
  4639.  move.l #10*256,StepUpVal
  4640. .okbigstep:
  4641.  
  4642.  move.l #$1000000,StepDownVal
  4643.  
  4644.  move.l PLR1_Roompt,a0
  4645.  move.w ToTelZone(a0),d0
  4646.  blt .noteleport
  4647.  
  4648.  move.w ToTelX(a0),newx
  4649.  move.w ToTelZ(a0),newz
  4650.  move.w #-1,CollId
  4651.  move.l #%111111111111111111,CollideFlags
  4652.  bsr Collision
  4653.  tst.b hitwall
  4654.  beq.s .teleport
  4655.  
  4656.  move.w PLR1_xoff,newx
  4657.  move.w PLR1_zoff,newz
  4658.  bra .noteleport
  4659.  
  4660. .teleport:
  4661.  
  4662.  st PLR1_TELEPORTED
  4663.  
  4664.  move.l PLR1_Roompt,a0
  4665.  move.w ToTelZone(a0),d0
  4666.  move.w ToTelX(a0),PLR1_xoff
  4667.  move.w ToTelZ(a0),PLR1_zoff
  4668.  move.l PLR1_yoff,d1
  4669.  sub.l ToZoneFloor(a0),d1
  4670.  move.l ZoneAdds,a0
  4671.  move.l (a0,d0.w*4),a0
  4672.  add.l LEVELDATA,a0
  4673.  move.l a0,PLR1_Roompt
  4674.  add.l ToZoneFloor(a0),d1
  4675.  move.l d1,PLR1s_yoff
  4676.  move.l d1,PLR1_yoff
  4677.  move.l d1,PLR1s_tyoff
  4678.  move.l PLR1_xoff,PLR1s_xoff
  4679.  move.l PLR1_zoff,PLR1s_zoff
  4680.  
  4681.  SAVEREGS
  4682.  move.w #0,Noisex
  4683.  move.w #0,Noisez
  4684.  move.w #26,Samplenum
  4685.  move.w #100,Noisevol
  4686.  move.b #$fa,IDNUM
  4687.  jsr MakeSomeNoise
  4688.  GETREGS
  4689.  
  4690.  bra .cantmove
  4691.  
  4692. .noteleport:
  4693.  
  4694.  move.l PLR1_Roompt,objroom
  4695.  move.w #%100000000,wallflags
  4696.  move.b PLR1_StoodInTop,StoodInTop
  4697.  
  4698.  move.l #%1011111110111000011,CollideFlags
  4699.  move.w #-1,CollId
  4700.  
  4701.  bsr Collision
  4702.  tst.b hitwall
  4703.  beq.s .nothitanything
  4704.  move.w oldx,PLR1_xoff
  4705.  move.w oldz,PLR1_zoff
  4706.  move.l PLR1_xoff,PLR1s_xoff
  4707.  move.l PLR1_zoff,PLR1s_zoff
  4708.  bra .cantmove
  4709. .nothitanything:
  4710.  
  4711.  move.w #40,extlen
  4712.  move.b #0,awayfromwall
  4713.  
  4714.  clr.b exitfirst
  4715.  clr.b wallbounce
  4716.  bsr MoveObject
  4717.  move.b StoodInTop,PLR1_StoodInTop
  4718.  move.l objroom,PLR1_Roompt
  4719.  move.w newx,PLR1_xoff
  4720.  move.w newz,PLR1_zoff
  4721.  move.l PLR1_xoff,PLR1s_xoff
  4722.  move.l PLR1_zoff,PLR1s_zoff
  4723.  
  4724. .cantmove:
  4725.  
  4726.  move.l PLR1_Roompt,a0
  4727.  
  4728.  move.l ToZoneFloor(a0),d0
  4729.  tst.b PLR1_StoodInTop
  4730.  beq.s notintop
  4731.  move.l ToUpperFloor(a0),d0
  4732. notintop:
  4733.  
  4734.  adda.w #ToZonePts,a0
  4735.  sub.l PLR1_height,d0
  4736.  move.l d0,PLR1s_tyoff
  4737.  move.w p1_angpos,tmpangpos
  4738.  
  4739. ; move.l (a0),a0        ; jump to viewpoint list
  4740.  * A0 is pointing at a pointer to list of points to rotate
  4741.  move.w (a0)+,d1
  4742.  ext.l d1
  4743.  add.l PLR1_Roompt,d1
  4744.  move.l d1,PLR1_PointsToRotatePtr
  4745.  tst.w (a0)+
  4746.  sne.s DRAWNGRAPHTOP
  4747.  beq.s nobackgraphics
  4748.  cmp.b #'s',mors
  4749.  beq.s nobackgraphics
  4750.  move.l a0,-(a7)
  4751.  jsr putinbackdrop 
  4752.  move.l (a7)+,a0
  4753. nobackgraphics:
  4754.  adda.w #10,a0
  4755.  move.l a0,PLR1_ListOfGraphRooms
  4756.  
  4757. *************************************************
  4758.  rts
  4759.  
  4760. DRAWNGRAPHTOP
  4761.  dc.w 0 
  4762. tstzone: dc.l 0
  4763. CollId: dc.w 0
  4764.  
  4765. PLR2_Control:
  4766.  
  4767. ; Take a snapshot of everything.
  4768.  
  4769.  move.l PLR2_xoff,d2
  4770.  move.l d2,PLR2_oldxoff
  4771.  move.l d2,oldx
  4772.  move.l PLR2_zoff,d3
  4773.  move.l d3,PLR2_oldzoff
  4774.  move.l d3,oldz
  4775.  move.l p2_xoff,d0
  4776.  move.l d0,PLR2_xoff
  4777.  move.l d0,newx
  4778.  move.l p2_zoff,d1
  4779.  move.l d1,newz
  4780.  move.l d1,PLR2_zoff
  4781.  
  4782.  move.l p2_height,PLR2_height
  4783.  
  4784.  sub.l d2,d0
  4785.  sub.l d3,d1
  4786.  move.l d0,xdiff
  4787.  move.l d1,zdiff
  4788.  move.w p2_angpos,d0
  4789.  move.w d0,PLR2_angpos
  4790.  
  4791.  move.l #SineTable,a1
  4792.  move.w (a1,d0.w),PLR2_sinval
  4793.  add.w #2048,d0
  4794.  and.w #8190,d0
  4795.  move.w (a1,d0.w),PLR2_cosval
  4796.  
  4797.  move.l p2_yoff,d0
  4798.  move.w p2_bobble,d1
  4799.  move.w (a1,d1.w),d1
  4800.  move.w d1,d3
  4801.  ble.s .notnegative
  4802.  neg.w d1
  4803. .notnegative:
  4804.  add.w #16384,d1
  4805.  asr.w #4,d1
  4806.  
  4807.  tst.b PLR2_Ducked
  4808.  bne.s .notdouble
  4809.  add.w d1,d1
  4810. .notdouble
  4811.  ext.l d1
  4812.  
  4813.  move.l d1,PLR2_BOBBLEY
  4814.  
  4815.  move.l PLR2_height,d4
  4816.  sub.l d1,d4
  4817.  add.l d1,d0
  4818.  
  4819.  cmp.b #'s',mors
  4820.  bne.s .otherwob
  4821.  asr.w #6,d3
  4822.  ext.l d3
  4823.  move.l d3,xwobble
  4824.  move.w PLR2_sinval,d1
  4825.  muls d3,d1
  4826.  move.w PLR2_cosval,d2
  4827.  muls d3,d2
  4828.  swap d1
  4829.  swap d2
  4830.  asr.w #7,d1
  4831.  move.w d1,xwobxoff
  4832.  asr.w #7,d2
  4833.  neg.w d2
  4834.  move.w d2,xwobzoff
  4835. .otherwob
  4836.  
  4837.  move.l d0,PLR2_yoff
  4838.  move.l d0,newy
  4839.  move.l d0,oldy
  4840.  
  4841.  move.l d4,thingheight
  4842.  move.l #40*256,StepUpVal
  4843.  tst.b PLR2_Ducked
  4844.  beq.s .okbigstep
  4845.  move.l #10*256,StepUpVal
  4846. .okbigstep:
  4847.  
  4848.  move.l #$1000000,StepDownVal
  4849.  
  4850.  move.l PLR2_Roompt,a0
  4851.  move.w ToTelZone(a0),d0
  4852.  blt .noteleport
  4853.  
  4854.  move.w ToTelX(a0),newx
  4855.  move.w ToTelZ(a0),newz
  4856.  move.w #-1,CollId
  4857.  move.l #%111111111111111111,CollideFlags
  4858.  bsr Collision
  4859.  tst.b hitwall
  4860.  beq.s .teleport
  4861.  
  4862.  move.w PLR2_xoff,newx
  4863.  move.w PLR2_zoff,newz
  4864.  bra .noteleport
  4865.  
  4866. .teleport:
  4867.  
  4868.  st PLR2_TELEPORTED
  4869.  
  4870.  move.l PLR2_Roompt,a0
  4871.  move.w ToTelZone(a0),d0
  4872.  move.w ToTelX(a0),PLR2_xoff
  4873.  move.w ToTelZ(a0),PLR2_zoff
  4874.  move.l PLR2_yoff,d1
  4875.  sub.l ToZoneFloor(a0),d1
  4876.  move.l ZoneAdds,a0
  4877.  move.l (a0,d0.w*4),a0
  4878.  add.l LEVELDATA,a0
  4879.  move.l a0,PLR2_Roompt
  4880.  add.l ToZoneFloor(a0),d1
  4881.  move.l d1,PLR2s_yoff
  4882.  move.l d1,PLR2_yoff
  4883.  move.l d1,PLR2s_tyoff
  4884.  move.l PLR2_xoff,PLR2s_xoff
  4885.  move.l PLR2_zoff,PLR2s_zoff
  4886.  
  4887.  SAVEREGS
  4888.  move.w #0,Noisex
  4889.  move.w #0,Noisez
  4890.  move.w #26,Samplenum
  4891.  move.w #100,Noisevol
  4892.  move.b #$fa,IDNUM
  4893.  jsr MakeSomeNoise
  4894.  GETREGS
  4895.  
  4896.  bra .cantmove
  4897.  
  4898. .noteleport:
  4899.  
  4900.  move.l PLR2_Roompt,objroom
  4901.  move.w #%100000000000,wallflags
  4902.  move.b PLR2_StoodInTop,StoodInTop
  4903.  
  4904.  move.l #%1011111010111100011,CollideFlags
  4905.  move.w #-1,CollId
  4906.  
  4907.  bsr Collision
  4908.  tst.b hitwall
  4909.  beq.s .nothitanything
  4910.  move.w oldx,PLR2_xoff
  4911.  move.w oldz,PLR2_zoff
  4912.  move.l PLR2_xoff,PLR2s_xoff
  4913.  move.l PLR2_zoff,PLR2s_zoff
  4914.  bra .cantmove
  4915. .nothitanything:
  4916.  
  4917.  move.w #40,extlen
  4918.  move.b #0,awayfromwall
  4919.  
  4920.  clr.b exitfirst
  4921.  clr.b wallbounce
  4922.  bsr MoveObject
  4923.  move.b StoodInTop,PLR2_StoodInTop
  4924.  move.l objroom,PLR2_Roompt
  4925.  move.w newx,PLR2_xoff
  4926.  move.w newz,PLR2_zoff
  4927.  move.l PLR2_xoff,PLR2s_xoff
  4928.  move.l PLR2_zoff,PLR2s_zoff
  4929.  
  4930. .cantmove
  4931.  
  4932.  move.l PLR2_Roompt,a0
  4933.  
  4934.  move.l ToZoneFloor(a0),d0
  4935.  tst.b PLR2_StoodInTop
  4936.  beq.s .notintop
  4937.  move.l ToUpperFloor(a0),d0
  4938. .notintop:
  4939.  
  4940.  adda.w #ToZonePts,a0
  4941.  sub.l PLR2_height,d0
  4942.  move.l d0,PLR2s_tyoff
  4943.  move.w p2_angpos,tmpangpos
  4944.  
  4945. ; move.l (a0),a0        ; jump to viewpoint list
  4946.  * A0 is pointing at a pointer to list of points to rotate
  4947.  move.w (a0)+,d1
  4948.  ext.l d1
  4949.  add.l PLR2_Roompt,d1
  4950.  move.l d1,PLR2_PointsToRotatePtr
  4951.  tst.w (a0)+
  4952.  sne.s DRAWNGRAPHTOP
  4953.  beq.s .nobackgraphics
  4954.  cmp.b #'s',mors
  4955.  bne.s .nobackgraphics
  4956.  move.l a0,-(a7)
  4957.  jsr putinbackdrop 
  4958.  move.l (a7)+,a0
  4959. .nobackgraphics:
  4960.  adda.w #10,a0
  4961.  move.l a0,PLR2_ListOfGraphRooms
  4962.  
  4963. *****************************************************
  4964.  rts
  4965.  
  4966.  
  4967. KeyMap: ds.b 256
  4968.  
  4969. fillscrnwater:
  4970.  dc.w 0
  4971. DONTDOGUN:
  4972.  dc.w 0
  4973.  
  4974. ;temptemp: ds.l 200
  4975. ;temptempptr: dc.l 0
  4976.  
  4977. DrawDisplay:
  4978.  
  4979. ; move.l #temptemp,temptempptr
  4980.  
  4981.  clr.b fillscrnwater
  4982.  
  4983.  move.l #SineTable,a0
  4984.  move.w angpos,d0
  4985.  move.w (a0,d0.w),d6
  4986.  adda.w #2048,a0
  4987.  move.w (a0,d0.w),d7
  4988.  move.w d6,sinval
  4989.  move.w d7,cosval
  4990.  
  4991.  move.l yoff,d0
  4992.  asr.l #8,d0
  4993.  move.w d0,d1
  4994.  add.w #256-32,d1
  4995.  and.w #255,d1
  4996.  move.w d1,wallyoff
  4997.  move.l yoff,d0
  4998.  asr.l #6,d0
  4999.  move.w d0,flooryoff
  5000.  
  5001.  move.w xoff,d6
  5002.  move.w d6,d3
  5003.  asr.w #1,d3
  5004.  add.w d3,d6
  5005.  asr.w #1,d6
  5006.  move.w d6,xoff34
  5007.  
  5008.  move.w zoff,d6
  5009.  move.w d6,d3
  5010.  asr.w #1,d3
  5011.  add.w d3,d6
  5012.  asr.w #1,d6
  5013.  move.w d6,zoff34
  5014.  
  5015.  bsr RotateLevelPts
  5016.  bsr RotateObjectPts
  5017.  bsr CalcPLR1InLine
  5018.  
  5019.  
  5020.  cmp.b #'n',mors
  5021.  bne.s doplr2too
  5022.  move.l PLR2_Obj,a0
  5023.  move.w #-1,12(a0)
  5024.  move.w #-1,GraphicRoom(a0)
  5025.  bra noplr2either
  5026.  
  5027. doplr2too:
  5028.  bsr CalcPLR2InLine
  5029. noplr2either:
  5030.  
  5031.  move.l endoflist,a0
  5032. ; move.w #-1,(a0)
  5033.  
  5034. ; move.l #FinalOrder,a0
  5035.  
  5036.  
  5037. subroomloop:
  5038. ; move.w (a0)+,d7
  5039.  move.w -(a0),d7
  5040.  blt jumpoutofrooms
  5041.  
  5042. ; bsr setlrclip
  5043. ; move.w leftclip,d0
  5044. ; cmp.w rightclip,d0
  5045. ; bge subroomloop
  5046.  move.l a0,-(a7)
  5047.  
  5048.  move.l ZoneAdds,a0
  5049.  move.l (a0,d7.w*4),a0
  5050.  add.l LEVELDATA,a0
  5051.  move.l ToZoneRoof(a0),SplitHeight
  5052.  move.l a0,ROOMBACK
  5053.  
  5054.  move.l ZoneGraphAdds,a0
  5055.  move.l 4(a0,d7.w*8),a2
  5056.  move.l (a0,d7.w*8),a0
  5057.  
  5058.  add.l LEVELGRAPHICS,a0
  5059.  add.l LEVELGRAPHICS,a2
  5060.  move.l a2,ThisRoomToDraw+4
  5061.  move.l a0,ThisRoomToDraw
  5062.  
  5063.  move.l ListOfGraphRooms,a1
  5064.  
  5065.  
  5066.  
  5067. finditit:
  5068.  tst.w (a1)
  5069.  blt nomoretodoatall
  5070.  cmp.w (a1),d7
  5071.  beq outoffind
  5072.  adda.w #8,a1
  5073.  bra finditit
  5074.  
  5075. outoffind:
  5076.  
  5077.  move.l a1,-(a7)
  5078.  
  5079.  
  5080.  move.w #0,leftclip
  5081.  move.w RIGHTX,rightclip
  5082.  moveq #0,d7
  5083.  move.w 2(a1),d7
  5084.  blt.s outofrcliplop
  5085.  move.l LEVELCLIPS,a0
  5086.  lea (a0,d7.l*2),a0
  5087.  
  5088.  tst.w (a0)
  5089.  blt outoflcliplop
  5090.  
  5091.  bsr NEWsetlclip
  5092.  
  5093. intolcliplop:        ; clips
  5094.  tst.w (a0)
  5095.  blt outoflcliplop
  5096.  
  5097.  bsr NEWsetlclip 
  5098.  bra intolcliplop
  5099.  
  5100. outoflcliplop:
  5101.  
  5102.  addq #2,a0
  5103.  
  5104.  tst.w (a0)
  5105.  blt outofrcliplop
  5106.  
  5107.  bsr NEWsetrclip
  5108.  
  5109. intorcliplop:        ; clips
  5110.  tst.w (a0)
  5111.  blt outofrcliplop
  5112.  
  5113.  bsr NEWsetrclip 
  5114.  bra intorcliplop
  5115.  
  5116. outofrcliplop:
  5117.  
  5118.  
  5119.  move.w leftclip,d0
  5120.  cmp.w RIGHTX,d0
  5121.  bge dontbothercantseeit
  5122.  move.w rightclip,d1
  5123.  blt dontbothercantseeit
  5124.  cmp.w d1,d0
  5125.  bge dontbothercantseeit
  5126.  
  5127.  move.l yoff,d0
  5128.  cmp.l SplitHeight,d0
  5129.  blt botfirst
  5130.  
  5131.  move.l ThisRoomToDraw+4,a0
  5132.  cmp.l LEVELGRAPHICS,a0
  5133.  beq.s noupperroom
  5134.  st DOUPPER
  5135.  
  5136.  move.l ROOMBACK,a1
  5137.  move.l ToUpperRoof(a1),TOPOFROOM
  5138.  move.l ToUpperFloor(a1),BOTOFROOM
  5139.  
  5140.  move.l #CurrentPointBrights+4,PointBrightsPtr
  5141.  bsr dothisroom
  5142. noupperroom:
  5143.  move.l ThisRoomToDraw,a0
  5144.  clr.b DOUPPER
  5145.  move.l #CurrentPointBrights,PointBrightsPtr
  5146.  
  5147.  move.l ROOMBACK,a1
  5148.  move.l ToZoneRoof(a1),d0
  5149.  move.l d0,TOPOFROOM
  5150.  move.l ToZoneFloor(a1),d1
  5151.  move.l d1,BOTOFROOM
  5152.  
  5153.  move.l ToZoneWater(a1),d2
  5154.  cmp.l yoff,d2
  5155.  blt.s .abovefirst
  5156.  move.l d2,BEFOREWATTOP
  5157.  move.l d1,BEFOREWATBOT
  5158.  move.l d2,AFTERWATBOT
  5159.  move.l d0,AFTERWATTOP
  5160.  bra.s .belowfirst
  5161. .abovefirst:
  5162.  move.l d0,BEFOREWATTOP
  5163.  move.l d2,BEFOREWATBOT
  5164.  move.l d1,AFTERWATBOT
  5165.  move.l d2,AFTERWATTOP
  5166. .belowfirst:
  5167.  
  5168.  bsr dothisroom
  5169.  
  5170.  bra dontbothercantseeit
  5171. botfirst:
  5172.  
  5173.  move.l ThisRoomToDraw,a0
  5174.  clr.b DOUPPER
  5175.  move.l #CurrentPointBrights,PointBrightsPtr
  5176.  
  5177.  move.l ROOMBACK,a1
  5178.  move.l ToZoneRoof(a1),d0
  5179.  move.l d0,TOPOFROOM
  5180.  move.l ToZoneFloor(a1),d1
  5181.  move.l d1,BOTOFROOM
  5182.  
  5183.  move.l ToZoneWater(a1),d2
  5184.  cmp.l yoff,d2
  5185.  blt.s .abovefirst
  5186.  move.l d2,BEFOREWATTOP
  5187.  move.l d1,BEFOREWATBOT
  5188.  move.l d2,AFTERWATBOT
  5189.  move.l d0,AFTERWATTOP
  5190.  bra.s .belowfirst
  5191. .abovefirst:
  5192.  move.l d0,BEFOREWATTOP
  5193.  move.l d2,BEFOREWATBOT
  5194.  move.l d1,AFTERWATBOT
  5195.  move.l d2,AFTERWATTOP
  5196. .belowfirst:
  5197.  
  5198.  
  5199.  bsr dothisroom
  5200.  move.l ThisRoomToDraw+4,a0
  5201.  cmp.l LEVELGRAPHICS,a0
  5202.  beq.s noupperroom2
  5203.  move.l #CurrentPointBrights+4,PointBrightsPtr
  5204.  
  5205.  move.l ROOMBACK,a1
  5206.  move.l ToUpperRoof(a1),TOPOFROOM
  5207.  move.l ToUpperFloor(a1),BOTOFROOM
  5208.  
  5209.  st DOUPPER
  5210.  bsr dothisroom
  5211. noupperroom2:
  5212.  
  5213. dontbothercantseeit:
  5214. pastemp:
  5215.  
  5216.  move.l (a7)+,a1
  5217.  move.l ThisRoomToDraw,a0
  5218.  move.w (a0),d7
  5219.  
  5220.  adda.w #8,a1
  5221.  bra finditit
  5222.  
  5223. nomoretodoatall:
  5224.  
  5225.  move.l (a7)+,a0
  5226.  
  5227.  bra subroomloop
  5228.  
  5229. jumpoutofrooms:
  5230.  
  5231.  
  5232.  tst.b DONTDOGUN
  5233.  bne NOGUNLOOK
  5234.  
  5235.  cmp.b #'s',mors
  5236.  beq.s drawslavegun
  5237.  
  5238.  moveq #0,d0
  5239.  move.b PLR1_GunSelected,d0
  5240.  moveq #0,d1
  5241.  move.b PLR1_GunFrame,d1
  5242. ; bsr DRAWINGUN
  5243.  bra drawngun
  5244.  
  5245. drawslavegun
  5246.  moveq #0,d0
  5247.  move.b PLR2_GunSelected,d0
  5248.  moveq #0,d1
  5249.  move.b PLR2_GunFrame,d1
  5250. ; bsr DRAWINGUN
  5251.  
  5252. drawngun:
  5253.  
  5254. NOGUNLOOK:
  5255.  
  5256.  moveq #0,d1
  5257.  move.b PLR1_GunFrame,d1
  5258.  sub.w TempFrames,d1
  5259.  bgt.s .nn
  5260.  moveq #0,d1
  5261. .nn
  5262.  move.b d1,PLR1_GunFrame
  5263.  
  5264.  ble.s .donefire
  5265.  sub.b #1,PLR1_GunFrame
  5266. .donefire:
  5267.  
  5268.  moveq #0,d1
  5269.  move.b PLR2_GunFrame,d1
  5270.  sub.w TempFrames,d1
  5271.  bgt.s .nn2
  5272.  moveq #0,d1
  5273. .nn2
  5274.  move.b d2,PLR2_GunFrame
  5275.  
  5276.  ble.s .donefire2
  5277.  sub.b #1,PLR2_GunFrame
  5278. .donefire2:
  5279.  
  5280.  tst.b DOANYWATER
  5281.  beq.s nowaterfull
  5282.  
  5283.  move.w #231,d0
  5284.  move.l FASTBUFFER,a0
  5285.  tst.b fillscrnwater
  5286.  beq nowaterfull
  5287.  bgt oknothalf
  5288.  moveq #119,d0
  5289.  add.l #320*120*2,a0
  5290. oknothalf:
  5291.  
  5292.  bclr.b #1,$bfe001
  5293.  
  5294.  move.l #brightentab+512*4,a2
  5295.  moveq #0,d2
  5296.  
  5297.  tst.b FULLSCR
  5298.  bne.s DOALLSCREEN
  5299.  
  5300. DOSOMESCREEN:
  5301.  
  5302.  move.w #159,d0
  5303. .fw:
  5304.  move.w #191,d1
  5305. .fwa:
  5306.  move.b (a0),d2
  5307.  move.b (a2,d2.w*2),(a0)+
  5308.  dbra d1,.fwa
  5309.  add.w #(320-192),a0
  5310.  dbra d0,.fw
  5311.  rts
  5312.  
  5313. DOALLSCREEN:
  5314.  
  5315. fw:
  5316.  move.w #287,d1
  5317. fwa:
  5318.  move.b (a0),d2
  5319.  move.b (a2,d2.w*2),(a0)+
  5320.  dbra d1,fwa
  5321.  add.w #32,a0
  5322.  dbra d0,fw
  5323.  
  5324. ; move.l frompt,a0
  5325. ; add.l #104*4*60,a0
  5326. ; 
  5327. ; move.w #31,d0
  5328. ;fw:
  5329. ; move.w d5,d1
  5330. ; move.l a0,a1
  5331. ;fwd:
  5332. ;val SET 104*4*19
  5333. ; REPT 20
  5334. ; and.w #$ff,val(a1)
  5335. ;val SET val-104*4
  5336. ; ENDR
  5337. ; sub.l #104*4*20,a1
  5338. ; dbra d1,fwd
  5339. ; addq #4,a0
  5340. ; dbra d0,fw
  5341. ;
  5342. ; addq #4,a0
  5343. ;
  5344. ; move.w #31,d0
  5345. ;sw:
  5346. ; move.w d5,d1
  5347. ; move.l a0,a1
  5348. ;swd:
  5349. ;val SET 104*4*19
  5350. ; REPT 20
  5351. ; and.w #$ff,val(a1)
  5352. ;val SET val-104*4
  5353. ; ENDR
  5354. ; sub.l #104*4*20,a1
  5355. ; dbra d1,swd
  5356. ; addq #4,a0
  5357. ; dbra d0,sw
  5358. ;
  5359. ; addq #4,a0
  5360. ;
  5361. ; move.w #31,d0
  5362. ;tw:
  5363. ; move.w d5,d1
  5364. ; move.l a0,a1
  5365. ;twd:
  5366. ;val SET 104*4*19
  5367. ; REPT 20
  5368. ; and.w #$ff,val(a1)
  5369. ;val SET val-104*4
  5370. ; ENDR
  5371. ; sub.l #104*4*20,a1
  5372. ; dbra d1,twd
  5373. ; addq #4,a0
  5374. ; dbra d0,tw
  5375. ;
  5376.  rts
  5377.  
  5378. nowaterfull:
  5379.  bset.b #1,$bfe001
  5380.  rts
  5381.  
  5382. prot9: dc.w 0
  5383.  
  5384. ;TempBuffer: ds.l 100 
  5385.  
  5386. prot8: dc.w 0
  5387.  
  5388. ClipTable: ds.l 30
  5389. EndOfClipPt: dc.l 0
  5390. DOUPPER: dc.w 0
  5391.  
  5392. RealTable:
  5393.  dc.l prot1-78935450
  5394.  dc.l prot2-78935450
  5395.  dc.l prot3-78935450
  5396.  dc.l prot4-78935450
  5397.  dc.l prot5-78935450
  5398.  dc.l prot6-78935450
  5399.  dc.l prot7-78935450
  5400.  dc.l prot8-78935450
  5401.  dc.l prot9-78935450
  5402.  dc.l protA-78935450
  5403.  
  5404. dothisroom
  5405.  
  5406.  move.w (a0)+,d0
  5407.  move.w d0,currzone
  5408.  move.w d0,d1
  5409.  muls #40,d1
  5410.  add.l #BIGMAP,d1
  5411.  move.l d1,BIGPTR
  5412.  move.w d0,d1
  5413.  ext.l d1
  5414.  asl.w #2,d1
  5415.  add.l #COMPACTMAP,d1
  5416.  move.l d1,COMPACTPTR
  5417.  add.l #4,d1
  5418.  cmp.l LASTZONE,d1
  5419.  ble.s .nochange
  5420.  move.l d1,LASTZONE
  5421. .nochange:
  5422.  
  5423.  move.l #ZoneBrightTable,a1
  5424.  move.l (a1,d0.w*4),d1
  5425.  tst.b DOUPPER
  5426.  bne.s .okbot
  5427.  swap d1
  5428. .okbot:
  5429.  move.w d1,ZoneBright
  5430.  
  5431. polyloop:
  5432.  move.w (a0)+,d0
  5433.  move.w d0,WALLIDENT
  5434.  and.w #$ff,d0
  5435.  tst.b d0
  5436.  blt jumpoutofloop
  5437.  beq itsawall
  5438.  cmp.w #3,d0
  5439.  beq itsasetclip
  5440.  blt itsafloor
  5441.  cmp.w #4,d0
  5442.  beq itsanobject
  5443.  cmp.w #5,d0
  5444.  beq itsanarc
  5445.  cmp.w #6,d0
  5446.  beq itsalightbeam
  5447.  cmp.w #7,d0
  5448.  beq.s itswater
  5449.  cmp.w #9,d0
  5450.  ble itsachunkyfloor
  5451.  cmp.w #11,d0
  5452.  ble itsabumpyfloor
  5453.  cmp.w #12,d0
  5454.  beq.s itsbackdrop
  5455.  cmp.w #13,d0
  5456.  beq.s itsaseewall
  5457.  
  5458.  bra polyloop
  5459.  
  5460. itsaseewall:
  5461.  st seethru
  5462.  jsr itsawalldraw
  5463.  bra polyloop
  5464.  
  5465. itsbackdrop:
  5466.  jsr putinbackdrop
  5467.  bra polyloop
  5468.  
  5469. itswater:
  5470.  PROTHCHECK
  5471.  move.w #2,SMALLIT
  5472.  move.w #3,d0
  5473.  clr.b gourfloor
  5474.  move.l #FloorLine,LineToUse
  5475.  st usewater
  5476.  clr.b usebumps
  5477.  jsr itsafloordraw
  5478.  bra polyloop
  5479.  
  5480. itsanarc:
  5481.  jsr CurveDraw
  5482.  bra polyloop
  5483.  
  5484. itsanobject:
  5485.  jsr ObjDraw
  5486.  bra polyloop
  5487.  
  5488. itsalightbeam:
  5489.  jsr LightDraw
  5490.  bra polyloop
  5491.  
  5492. itsabumpyfloor:
  5493.  move.w #1,SMALLIT
  5494.  sub.w #9,d0
  5495.  st usebumps
  5496.  st smoothbumps
  5497.  clr.b usewater
  5498.  move.l #BumpLine,LineToUse
  5499.  jsr itsafloordraw
  5500.  bra polyloop
  5501.  
  5502. itsachunkyfloor:
  5503.  move.w #1,SMALLIT
  5504.  subq.w #7,d0
  5505.  st usebumps
  5506.  sub.w #12,topclip
  5507. ; add.w #10,botclip
  5508.  clr.b smoothbumps
  5509.  clr.b usewater
  5510.  move.l #BumpLine,LineToUse
  5511.  jsr itsafloordraw
  5512.  add.w #12,topclip
  5513. ; sub.w #10,botclip
  5514.  bra polyloop 
  5515.  
  5516. itsafloor:
  5517.  
  5518.  move.l PointBrightsPtr,FloorPtBrights
  5519.  
  5520.  move.w currzone,d1
  5521.  muls #80,d1
  5522.  
  5523.  cmp.w #2,d0
  5524.  bne.s .nfl
  5525.  add.l #2,d1
  5526. .nfl
  5527.  add.l d1,FloorPtBrights
  5528.  
  5529.  move.w #1,SMALLIT
  5530.  
  5531.  movem.l a0/d0,-(a7)
  5532.  move.l $4.w,a6
  5533.  jsr _LVOSuperState(a6)
  5534.  move.l d0,SSTACK
  5535.  movem.l (a7)+,a0/d0
  5536.  
  5537.  move.l #FloorLine,LineToUse
  5538. * 1,2 = floor/roof
  5539.  clr.b usewater
  5540.  clr.b usebumps
  5541.  move.b GOURSEL,gourfloor    
  5542.  jsr itsafloordraw
  5543.  move.l a0,-(a7)
  5544.  move.l $4.w,a6
  5545.  move.l SSTACK,d0
  5546.  jsr _LVOUserState(a6)
  5547.  move.l (a7)+,a0
  5548.  bra polyloop
  5549. itsasetclip:
  5550.  bra polyloop
  5551. itsawall:
  5552.  clr.b seethru
  5553. ; move.l #stripbuffer,a1
  5554.  jsr itsawalldraw
  5555.  bra polyloop
  5556.  
  5557. jumpoutofloop:
  5558.  rts
  5559.  
  5560. LASTZONE: dc.l 0
  5561. COMPACTPTR: dc.l 0
  5562. BIGPTR: dc.l 0
  5563. WALLIDENT: dc.w 0
  5564. SMALLIT: dc.w 0
  5565. GOURSEL: dc.w 0
  5566. ThisRoomToDraw: dc.l 0,0
  5567. SplitHeight: dc.l 0
  5568.  
  5569.  include "ab3:source_4000/OrderZones"
  5570.  
  5571. ReadMouse:
  5572.  move.l #$dff000,a6
  5573.  clr.l d0
  5574.  clr.l d1
  5575.  move.w $a(a6),d0
  5576.  lsr.w #8,d0
  5577.  ext.l d0
  5578.  move.w d0,d3
  5579.  move.w oldmy,d2
  5580.  sub.w d2,d0
  5581.  
  5582.  cmp.w #127,d0
  5583.  blt nonegy
  5584.  move.w #255,d1
  5585.  sub.w d0,d1
  5586.  move.w d1,d0
  5587.  neg.w d0
  5588. nonegy:
  5589.  
  5590.  cmp.w #-127,d0
  5591.  bge nonegy2
  5592.  move.w #255,d1
  5593.  add.w d0,d1
  5594.  move.w d1,d0
  5595. nonegy2:
  5596.  
  5597.  add.b d0,d2
  5598.  add.w d0,oldy2
  5599.  move.w d2,oldmy
  5600.  move.w d2,d0
  5601.  
  5602.  move.w oldy2,d0
  5603.  move.w d0,ymouse
  5604.  
  5605.  clr.l d0
  5606.  clr.l d1
  5607.  move.w $a(a6),d0
  5608.  ext.w d0
  5609.  ext.l d0
  5610.  move.w d0,d3
  5611.  move.w oldmx,d2
  5612.  sub.w d2,d0
  5613.  
  5614.  cmp.w #127,d0
  5615.  blt nonegx
  5616.  move.w #255,d1
  5617.  sub.w d0,d1
  5618.  move.w d1,d0
  5619.  neg.w d0
  5620. nonegx:
  5621.  
  5622.  cmp.w #-127,d0
  5623.  bge nonegx2
  5624.  move.w #255,d1
  5625.  add.w d0,d1
  5626.  move.w d1,d0
  5627. nonegx2:
  5628.  
  5629.  add.b d0,d2
  5630.  move.w d0,d1
  5631.  move.w d2,oldmx
  5632.  
  5633.  move.w #$0,$dff034
  5634.  
  5635.  add.w d0,oldx2
  5636.  move.w oldx2,d0
  5637.  and.w #2047,d0
  5638.  move.w d0,oldx2
  5639.  
  5640.  asl.w #2,d0
  5641.  sub.w prevx,d0
  5642.  add.w d0,prevx
  5643.  add.w d0,angpos
  5644.  move.w #0,lrs
  5645.  rts
  5646.  
  5647. noturn:
  5648.  
  5649. ; got to move lr instead. 
  5650.  
  5651. ; d1 = speed moved l/r
  5652.  
  5653.  move.w d1,lrs
  5654.  
  5655.  rts
  5656.  
  5657. lrs: dc.w 0
  5658. prevx: dc.w 0
  5659.  
  5660. angpos: dc.w 0
  5661. mang: dc.w 0
  5662. oldymouse: dc.w 0
  5663. xmouse: dc.w 0
  5664. ymouse: dc.w 0
  5665. oldx2: dc.w 0
  5666. oldmx: dc.w 0
  5667. oldmy: dc.w 0
  5668. oldy2: dc.w 0
  5669.  
  5670. MAPON: dc.w $0
  5671. REALMAPON: dc.w 0
  5672.  
  5673. RotateLevelPts:
  5674.  
  5675.  tst.b REALMAPON
  5676.  beq ONLYTHELONELY
  5677.  
  5678.  move.w sinval,d6
  5679.  swap d6
  5680.  move.w cosval,d6
  5681.  move.l Points,a3
  5682.  move.l #Rotated,a1
  5683.  move.l #OnScreen,a2
  5684.  move.w xoff,d4
  5685.  move.w zoff,d5
  5686.  
  5687. ; move.w #$c40,$dff106
  5688. ; move.w #$f00,$dff180
  5689.  
  5690.  move.w NumLevPts,d7
  5691.  
  5692.  tst.b FULLSCR
  5693.  bne BIGALL
  5694.  
  5695. pointrotlop2:
  5696.  move.w (a3)+,d0
  5697.  sub.w d4,d0
  5698.  move.w d0,d2
  5699.  move.w (a3)+,d1
  5700.  sub.w d5,d1
  5701.  muls d6,d2
  5702.  swap d6
  5703.  move.w d1,d3
  5704.  muls d6,d3
  5705.  sub.l d3,d2
  5706.  add.l d2,d2
  5707.  swap d2
  5708.  ext.l d2
  5709.  asl.l #7,d2
  5710.  add.l xwobble,d2
  5711.  move.l d2,(a1)+
  5712.  
  5713.  muls d6,d0
  5714.  swap d6
  5715.  muls d6,d1
  5716.  add.l d0,d1
  5717.  asl.l #1,d1
  5718.  swap d1
  5719. ; ext.l d1
  5720. ; divs #3,d1
  5721.  move.l d1,(a1)+
  5722.  
  5723.  tst.w d1
  5724.  bgt.s ptnotbehind
  5725.  tst.w d2
  5726.  bgt.s onrightsomewhere
  5727.  move.w #0,d2
  5728.  bra putin
  5729. onrightsomewhere:
  5730.  move.w RIGHTX,d2
  5731.  bra putin
  5732. ptnotbehind:
  5733.  
  5734.  divs d1,d2
  5735.  add.w MIDDLEX,d2
  5736. putin:
  5737.  move.w d2,(a2)+
  5738.  
  5739.  dbra d7,pointrotlop2
  5740. outofpointrot:
  5741.   rts
  5742.  
  5743.  
  5744. BIGALL:
  5745.  
  5746. pointrotlop2B:
  5747.  move.w (a3)+,d0
  5748.  sub.w d4,d0
  5749.  move.w d0,d2
  5750.  move.w (a3)+,d1
  5751.  sub.w d5,d1
  5752.  muls d6,d2
  5753.  swap d6
  5754.  move.w d1,d3
  5755.  muls d6,d3
  5756.  sub.l d3,d2
  5757.  add.l d2,d2
  5758.  swap d2
  5759.  ext.l d2
  5760.  asl.l #7,d2
  5761.  add.l xwobble,d2
  5762.  move.l d2,(a1)+
  5763.  
  5764.  muls d6,d0
  5765.  swap d6
  5766.  muls d6,d1
  5767.  add.l d0,d1
  5768.  asl.l #2,d1
  5769.  swap d1
  5770.  ext.l d1
  5771.  divs #3,d1
  5772.  move.l d1,(a1)+
  5773.  
  5774.  tst.w d1
  5775.  bgt.s ptnotbehindB
  5776.  tst.w d2
  5777.  bgt.s onrightsomewhereB
  5778.  move.w #0,d2
  5779.  bra putinB
  5780. onrightsomewhereB:
  5781.  move.w RIGHTX,d2
  5782.  bra putinB
  5783. ptnotbehindB:
  5784.  
  5785.  divs d1,d2
  5786.  add.w MIDDLEX,d2
  5787. putinB:
  5788.  move.w d2,(a2)+
  5789.  
  5790.  dbra d7,pointrotlop2B
  5791.   rts
  5792.  
  5793.  
  5794. ONLYTHELONELY:
  5795.  
  5796.  move.w sinval,d6
  5797.  swap d6
  5798.  move.w cosval,d6
  5799.  
  5800.  move.l PointsToRotatePtr,a0
  5801.  move.l Points,a3
  5802.  move.l #Rotated,a1
  5803.  move.l #OnScreen,a2
  5804.  move.w xoff,d4
  5805.  move.w zoff,d5
  5806.  
  5807. ; move.w #$c40,$dff106
  5808. ; move.w #$f00,$dff180
  5809.  
  5810.  tst.b FULLSCR
  5811.  bne BIGLONELY
  5812.  
  5813. pointrotlop:
  5814.  move.w (a0)+,d7
  5815.  blt outofpointrot
  5816.  
  5817.  move.w (a3,d7*4),d0
  5818.  sub.w d4,d0
  5819.  move.w d0,d2
  5820.  move.w 2(a3,d7*4),d1
  5821.  sub.w d5,d1
  5822.  muls d6,d2
  5823.  swap d6
  5824.  move.w d1,d3
  5825.  muls d6,d3
  5826.  sub.l d3,d2
  5827.  add.l d2,d2
  5828.  swap d2
  5829.  ext.l d2
  5830.  asl.l #7,d2
  5831.  add.l xwobble,d2
  5832.  move.l d2,(a1,d7*8)
  5833.  
  5834.  muls d6,d0
  5835.  swap d6
  5836.  muls d6,d1
  5837.  add.l d0,d1
  5838.  asl.l #1,d1
  5839.  swap d1
  5840. ; ext.l d1
  5841. ; divs #3,d1
  5842.  move.l d1,4(a1,d7*8)
  5843.  
  5844.  tst.w d1
  5845.  bgt.s .ptnotbehind
  5846.  tst.w d2
  5847.  bgt.s .onrightsomewhere
  5848.  move.w #0,d2
  5849.  bra .putin
  5850. .onrightsomewhere:
  5851.  move.w RIGHTX,d2
  5852.  bra .putin
  5853. .ptnotbehind:
  5854.  
  5855.  divs d1,d2
  5856.  add.w MIDDLEX,d2
  5857. .putin:
  5858.  move.w d2,(a2,d7*2)
  5859.  
  5860.  bra pointrotlop
  5861.  
  5862. ; move.w #$c40,$dff106
  5863. ; move.w #$ff0,$dff180
  5864.  
  5865.  rts
  5866.  
  5867. BIGLONELY:
  5868.  
  5869. .pointrotlop:
  5870.  move.w (a0)+,d7
  5871.  blt.s .outofpointrot
  5872.  
  5873.  move.w (a3,d7*4),d0
  5874.  sub.w d4,d0
  5875.  move.w d0,d2
  5876.  move.w 2(a3,d7*4),d1
  5877.  sub.w d5,d1
  5878.  muls d6,d2
  5879.  swap d6
  5880.  move.w d1,d3
  5881.  muls d6,d3
  5882.  sub.l d3,d2
  5883.  add.l d2,d2
  5884.  swap d2
  5885.  ext.l d2
  5886.  asl.l #7,d2
  5887.  add.l xwobble,d2
  5888.  move.l d2,(a1,d7*8)
  5889.  
  5890.  muls d6,d0
  5891.  swap d6
  5892.  muls d6,d1
  5893.  add.l d0,d1
  5894.  asl.l #2,d1
  5895.  swap d1
  5896.  ext.l d1
  5897.  divs #3,d1
  5898.  move.l d1,4(a1,d7*8)
  5899.  
  5900.  tst.w d1
  5901.  bgt.s .ptnotbehind
  5902.  tst.w d2
  5903.  bgt.s .onrightsomewhere
  5904.  move.w #0,d2
  5905.  bra .putin
  5906. .onrightsomewhere:
  5907.  move.w RIGHTX,d2
  5908.  bra .putin
  5909. .ptnotbehind:
  5910.  
  5911.  divs d1,d2
  5912.  add.w MIDDLEX,d2
  5913. .putin:
  5914.  move.w d2,(a2,d7*2)
  5915.  
  5916.  bra .pointrotlop
  5917.  
  5918. .outofpointrot:
  5919. ; move.w #$c40,$dff106
  5920. ; move.w #$ff0,$dff180
  5921.  
  5922.  rts
  5923.  
  5924.  
  5925. PLR1_ObjDists
  5926.  ds.w 250
  5927. PLR2_ObjDists
  5928.  ds.w 250
  5929.  
  5930. CalcPLR1InLine:
  5931.  
  5932.  move.w PLR1_sinval,d5
  5933.  move.w PLR1_cosval,d6
  5934.  move.l ObjectData,a4
  5935.  move.l ObjectPoints,a0
  5936.  move.w NumObjectPoints,d7
  5937.  move.l #PLR1_ObsInLine,a2
  5938.  move.l #PLR1_ObjDists,a3
  5939.  
  5940. .objpointrotlop:
  5941.  
  5942.  cmp.b #3,16(a4)
  5943.  beq.s .itaux
  5944.  
  5945.  move.w (a0),d0
  5946.  sub.w PLR1_xoff,d0
  5947.  move.w 4(a0),d1
  5948.  addq #8,a0
  5949.  
  5950.  tst.w 12(a4)
  5951.  blt .noworkout
  5952.  
  5953.  moveq #0,d2
  5954.  move.b 16(a4),d2
  5955.  ;move.l #ColBoxTable,a6
  5956.  ;lea (a6,d2.w*8),a6
  5957.  
  5958.  sub.w PLR1_zoff,d1
  5959.  move.w d0,d2
  5960.  muls d6,d2
  5961.  move.w d1,d3
  5962.  muls d5,d3
  5963.  sub.l d3,d2
  5964.  add.l d2,d2
  5965.  
  5966.  bgt.s .okh
  5967.  neg.l d2
  5968. .okh:
  5969.  swap d2
  5970.  
  5971.  muls d5,d0
  5972.  muls d6,d1
  5973.  add.l d0,d1
  5974.  asl.l #2,d1
  5975.  swap d1
  5976.  moveq #0,d3
  5977.  
  5978.  tst.w d1
  5979.  ble.s .notinline
  5980.  asr.w #1,d2
  5981.  cmp.w #80,d2
  5982.  bgt.s .notinline
  5983.  
  5984.  st d3
  5985. .notinline
  5986.  move.b d3,(a2)+
  5987.  
  5988.  move.w d1,(a3)+
  5989.  
  5990.  add.w #64,a4
  5991.  dbra d7,.objpointrotlop
  5992.  
  5993.  rts
  5994.  
  5995. .itaux:
  5996.  add.w #64,a4
  5997.  bra .objpointrotlop
  5998.  
  5999. .noworkout:
  6000.  move.b #0,(a2)+
  6001.  move.w #0,(a3)+
  6002.  add.w #64,a4
  6003.  dbra d7,.objpointrotlop
  6004.  rts
  6005.  
  6006.  
  6007. CalcPLR2InLine:
  6008.  
  6009.  move.w PLR2_sinval,d5
  6010.  move.w PLR2_cosval,d6
  6011.  move.l ObjectData,a4
  6012.  move.l ObjectPoints,a0
  6013.  move.w NumObjectPoints,d7
  6014.  move.l #PLR2_ObsInLine,a2
  6015.  move.l #PLR2_ObjDists,a3
  6016.  
  6017. .objpointrotlop:
  6018.  
  6019.  cmp.b #3,16(a4)
  6020.  beq.s .itaux
  6021.  
  6022.  move.w (a0),d0
  6023.  sub.w PLR2_xoff,d0
  6024.  move.w 4(a0),d1
  6025.  addq #8,a0
  6026.  
  6027.  tst.w 12(a4)
  6028.  blt .noworkout
  6029.  
  6030.  moveq #0,d2
  6031.  move.b 16(a4),d2
  6032. ; move.l #ColBoxTable,a6
  6033. ; lea (a6,d2.w*8),a6
  6034.  
  6035.  sub.w PLR2_zoff,d1
  6036.  move.w d0,d2
  6037.  muls d6,d2
  6038.  move.w d1,d3
  6039.  muls d5,d3
  6040.  sub.l d3,d2
  6041.  add.l d2,d2
  6042.  
  6043.  bgt.s .okh
  6044.  neg.l d2
  6045. .okh:
  6046.  swap d2
  6047.  
  6048.  muls d5,d0
  6049.  muls d6,d1
  6050.  add.l d0,d1
  6051.  asl.l #2,d1
  6052.  swap d1
  6053.  moveq #0,d3
  6054.  
  6055.  tst.w d1
  6056.  ble.s .notinline
  6057.  asr.w #1,d2
  6058.  cmp.w (a6),d2
  6059.  bgt.s .notinline
  6060.  
  6061.  st d3
  6062. .notinline
  6063.  move.b d3,(a2)+
  6064.  
  6065.  move.w d1,(a3)+
  6066.  
  6067.  add.w #64,a4
  6068.  dbra d7,.objpointrotlop
  6069.  
  6070.  rts
  6071.  
  6072. .itaux:
  6073.  add.w #64,a4
  6074.  bra .objpointrotlop
  6075.  
  6076. .noworkout:
  6077.  move.w #0,(a3)+
  6078.  move.b #0,(a2)+
  6079.  add.w #64,a4
  6080.  dbra d7,.objpointrotlop
  6081.  rts
  6082.  
  6083.  
  6084. RotateObjectPts:
  6085.  
  6086.  move.w sinval,d5
  6087.  move.w cosval,d6
  6088.  
  6089.  move.l ObjectData,a4
  6090.  move.l ObjectPoints,a0
  6091.  move.w NumObjectPoints,d7
  6092.  move.l #ObjRotated,a1
  6093.  
  6094.  tst.b FULLSCR
  6095.  bne BIGOBJPTS
  6096.  
  6097.  
  6098. .objpointrotlop:
  6099.  
  6100.  cmp.b #3,16(a4)
  6101.  beq.s .itaux
  6102.  
  6103.  move.w (a0),d0
  6104.  sub.w xoff,d0
  6105.  move.w 4(a0),d1
  6106.  addq #8,a0
  6107.  
  6108.  tst.w 12(a4)
  6109.  blt .noworkout
  6110.  
  6111.  sub.w zoff,d1
  6112.  
  6113.  move.w d0,d2
  6114.  muls d6,d2
  6115.  move.w d1,d3
  6116.  muls d5,d3
  6117.  sub.l d3,d2
  6118.  
  6119.  
  6120.  add.l d2,d2
  6121.  swap d2
  6122.  move.w d2,(a1)+
  6123.  
  6124.  muls d5,d0
  6125.  muls d6,d1
  6126.  add.l d0,d1
  6127.  asl.l #1,d1
  6128.  swap d1
  6129. ; ext.l d1
  6130. ; divs #3,d1
  6131.  moveq #0,d3
  6132.  
  6133.  move.w d1,(a1)+
  6134.  ext.l d2
  6135.  asl.l #7,d2
  6136.  add.l xwobble,d2
  6137.  move.l d2,(a1)+
  6138.  
  6139.  dbra d7,.objpointrotlop
  6140.  
  6141.  rts
  6142.  
  6143. .itaux:
  6144.  add.w #64,a4
  6145.  bra .objpointrotlop
  6146.  
  6147. .noworkout:
  6148.   move.l #0,(a1)+
  6149.   move.l #0,(a1)+
  6150.   add.w #64,a4
  6151.   dbra d7,.objpointrotlop
  6152.   rts
  6153.   
  6154. BIGOBJPTS:
  6155.  
  6156. .objpointrotlop:
  6157.  
  6158.  cmp.b #3,16(a4)
  6159.  beq.s .itaux
  6160.  
  6161.  move.w (a0),d0
  6162.  sub.w xoff,d0
  6163.  move.w 4(a0),d1
  6164.  addq #8,a0
  6165.  
  6166.  tst.w 12(a4)
  6167.  blt .noworkout
  6168.  
  6169.  sub.w zoff,d1
  6170.  move.w d0,d2
  6171.  muls d6,d2
  6172.  move.w d1,d3
  6173.  muls d5,d3
  6174.  sub.l d3,d2
  6175.  
  6176.  
  6177.  add.l d2,d2
  6178.  swap d2
  6179.  move.w d2,(a1)+
  6180.  
  6181.  muls d5,d0
  6182.  muls d6,d1
  6183.  add.l d0,d1
  6184.  asl.l #2,d1
  6185.  swap d1
  6186.  ext.l d1
  6187.  divs #3,d1
  6188.  moveq #0,d3
  6189.  
  6190.  move.w d1,(a1)+
  6191.  ext.l d2
  6192.  asl.l #7,d2
  6193.  add.l xwobble,d2
  6194.  move.l d2,(a1)+
  6195.  sub.l xwobble,d2
  6196.  
  6197.  add.w #64,a4
  6198.  dbra d7,.objpointrotlop
  6199.  
  6200.  rts
  6201.  
  6202. .itaux:
  6203.  add.w #64,a4
  6204.  bra .objpointrotlop
  6205.  
  6206. .noworkout:
  6207.   move.l #0,(a1)+
  6208.   move.l #0,(a1)+
  6209.   add.w #64,a4
  6210.   dbra d7,.objpointrotlop
  6211.   rts
  6212.  
  6213. LightDraw:
  6214.  
  6215.  move.w (a0)+,d0
  6216.  move.w (a0)+,d1
  6217.  move.l #Rotated,a1
  6218.  move.w 6(a1,d0.w*8),d2
  6219.  ble.s oneendbehind
  6220.  move.w 6(a1,d1.w*8),d3
  6221.  bgt.s bothendsinfront
  6222.  
  6223. oneendbehind:
  6224.  rts
  6225. bothendsinfront:
  6226.  
  6227.  move.l #OnScreen,a2
  6228.  move.w (a2,d0.w*2),d0
  6229.  bge.s okleftend
  6230.  moveq #0,d0
  6231. okleftend:
  6232.  move.w (a2,d1.w*2),d1
  6233.  bgt.s somevis
  6234.  rts
  6235. somevis:
  6236.  cmp.w RIGHTX,d0
  6237.  blt.s somevis2
  6238.  rts
  6239. somevis2:
  6240.  cmp.w RIGHTX,d1
  6241.  blt.s okrightend
  6242.  move.w RIGHTX,d1
  6243.  subq #1,d1
  6244. okrightend:
  6245.  
  6246.  sub.w d0,d1
  6247.  blt.s wrongbloodywayround
  6248.  move.l #brightentab,a4
  6249.  move.l #objintocop,a1
  6250.  lea (a1,d0.w*2),a1
  6251.  
  6252.  move.l frompt,a3
  6253.  move.w #104*4,d6
  6254.  move.w #79,d2
  6255. lacross:
  6256.  move.w d2,d3
  6257.  move.l a3,a2
  6258.  adda.w (a1)+,a2
  6259. ldown:
  6260.  add.w d6,a2
  6261.  move.w (a2),d7
  6262.  move.w (a4,d7.w*2),(a2)
  6263.  dbra d3,ldown
  6264.  dbra d1,lacross
  6265.  
  6266. wrongbloodywayround:
  6267.  
  6268.  rts
  6269.  
  6270. FaceToPlace: dc.w 0
  6271.  
  6272. Cheese:
  6273.  dc.w 4,15
  6274.  
  6275. FacesList:
  6276.  dc.w 0,4*4
  6277.  dc.w 1,2*4
  6278.  dc.w 0,2*4
  6279.  dc.w 2,2*4
  6280.  dc.w 0,2*4
  6281.  dc.w 1,3*4
  6282.  dc.w 0,2*4
  6283.  dc.w 2,3*4
  6284.  dc.w 0,5*4
  6285.  dc.w 1,2*4
  6286.  dc.w 0,2*4
  6287.  dc.w 2,2*4
  6288.  dc.w 0,2*4
  6289.  dc.w 1,2*4
  6290.  dc.w 0,2*4
  6291.  dc.w 2,3*4
  6292.  dc.w 0,1*4
  6293.  dc.w 1,3*4
  6294.  dc.w 0,1*4
  6295.  dc.w 2,3*4
  6296.  dc.w 0,1*4
  6297.  
  6298. EndOfFacesList:
  6299.  
  6300. FacesPtr:
  6301.  dc.l FacesList
  6302. FacesCounter:
  6303.  dc.w 0
  6304. Expression:
  6305.  dc.w 0
  6306.  
  6307.  
  6308. Energy:
  6309.  dc.w 191
  6310. OldEnergy:
  6311.  dc.w 191
  6312. Ammo: dc.w 63
  6313. OldAmmo: dc.w 63
  6314.  
  6315. FullEnergy:
  6316. ; move.w #127,Energy
  6317. ; move.w #127,OldEnergy
  6318. ; move.l #health,a0
  6319. ; move.l #borders,a1
  6320. ; add.l #25*8*2+6,a1
  6321. ; lea 2592(a1),a2
  6322. ; move.w #127,d0
  6323. ;PutInFull:
  6324. ; move.b (a0)+,(a1)
  6325. ; move.b (a0)+,8(a1)
  6326. ; add.w #16,a1
  6327. ; move.b (a0)+,(a2)
  6328. ; move.b (a0)+,8(a2)
  6329. ; add.w #16,a2
  6330. ; dbra d0,PutInFull
  6331.  
  6332.  rts
  6333.  
  6334. ;EnergyBar:
  6335.  
  6336.  move.w Energy,d0
  6337.  bgt.s .noeneg
  6338.  move.w #0,d0
  6339. .noeneg:
  6340.  move.w d0,Energy
  6341.  
  6342.  cmp.w OldEnergy,d0
  6343.  bne.s gottochange
  6344.  
  6345. NoChange
  6346.  rts
  6347.  
  6348. gottochange:
  6349.   
  6350.  blt LessEnergy
  6351.  cmp.w #127,Energy
  6352.  blt.s NotMax
  6353.  move.w #127,Energy
  6354. NotMax:
  6355.  
  6356.  move.w Energy,d0
  6357.  move.w OldEnergy,d2
  6358.  sub.w d0,d2
  6359.  beq.s NoChange    
  6360.  neg.w d2
  6361.  
  6362.  move.w #127,d3
  6363.  sub.w d0,d3
  6364.  
  6365.  move.l #health,a0
  6366.  lea (a0,d3.w*4),a0
  6367. ; move.l #borders+25*16+6,a1
  6368.  lsl.w #4,d3
  6369.  add.w d3,a1
  6370.  lea 2592(a1),a2
  6371.  
  6372. EnergyRise:
  6373.  move.b (a0)+,(a1)
  6374.  move.b (a0)+,8(a1)
  6375.  add.w #16,a1
  6376.  move.b (a0)+,(a2)
  6377.  move.b (a0)+,8(a2)
  6378.  add.w #16,a2
  6379.  subq #1,d2
  6380.  bgt.s EnergyRise
  6381.  
  6382.  move.w Energy,OldEnergy
  6383.  
  6384.  rts 
  6385.  
  6386. LessEnergy: 
  6387.  move.w OldEnergy,d2
  6388.  sub.w d0,d2
  6389.  
  6390.  move.w #127,d3
  6391.  sub.w OldEnergy,d3
  6392.  
  6393. ; move.l #borders+25*16+6,a1
  6394.  asl.w #4,d3
  6395.  add.w d3,a1
  6396.  lea 2592(a1),a2
  6397.  
  6398. EnergyDrain:
  6399.  move.b #0,(a1)
  6400.  move.b #0,8(a1)
  6401.  move.b #0,(a2)
  6402.  move.b #0,8(a2)
  6403.  add.w #16,a1
  6404.  add.w #16,a2
  6405.  subq #1,d2
  6406.  bgt.s EnergyDrain
  6407.  
  6408.  move.w Energy,OldEnergy
  6409.  
  6410.  rts 
  6411.  
  6412. firstdigit: dc.b 0
  6413. secdigit: dc.b 0
  6414. thirddigit: dc.b 0
  6415.  
  6416.  even
  6417.  
  6418. gunny: dc.w 0
  6419.  
  6420. AmmoBar:
  6421.  
  6422. * Do guns first.
  6423.  
  6424.  move.l #borderchars,a4
  6425.  move.b p1_gunselected,d0 
  6426.  move.l #PLAYERONEGUNS,a5
  6427.  cmp.b #'s',mors
  6428.  bne.s .notplr2
  6429.  move.l #PLAYERTWOGUNS,a5
  6430.  move.b p2_gunselected,d0
  6431. .notplr2:
  6432.  
  6433.  move.b d0,gunny
  6434.  
  6435.  move.w #9,d2
  6436.  moveq #0,d0
  6437. putingunnums:
  6438.  move.w #4,d1
  6439.  move.l a4,a0
  6440.  cmp.b gunny,d0
  6441.  bne.s .notsel
  6442.  add.l #5*10*8*2,a0
  6443.  addq #2,a5
  6444.  bra.s .donesel
  6445. .notsel:
  6446.  tst.w (a5)+
  6447.  beq.s .donesel
  6448.  add.l #5*10*8,a0
  6449. .donesel:
  6450.  move.l SCRNDRAWPT,a1
  6451.  add.w d0,a1
  6452.  add.l #3+(240*40),a1
  6453.  bsr DRAWDIGIT
  6454.  addq #1,d0
  6455.  dbra d2,putingunnums
  6456.  
  6457.  move.w Ammo,d0
  6458.  ext.l d0
  6459.  divs #10,d0
  6460.  swap d0
  6461.  move.b d0,thirddigit
  6462.  swap d0
  6463.  ext.l d0
  6464.  divs #10,d0
  6465.  move.b d0,firstdigit
  6466.  swap d0
  6467.  move.b d0,secdigit
  6468.  
  6469.  move.l #borderchars+15*8*10,a0
  6470.  cmp.w #10,Ammo
  6471.  blt.s .notsmallamo
  6472.  add.l #7*8*10,a0
  6473. .notsmallamo:
  6474.  
  6475.  move.l SCRNDRAWPT,a1
  6476.  add.l #20+238*40,a1
  6477.  move.b firstdigit,d0
  6478.  move.w #6,d1
  6479.  bsr DRAWDIGIT
  6480.  
  6481.  move.l SCRNDRAWPT,a1
  6482.  add.l #21+238*40,a1
  6483.  move.b secdigit,d0
  6484.  move.w #6,d1
  6485.  bsr DRAWDIGIT
  6486.  
  6487.  move.l SCRNDRAWPT,a1
  6488.  add.l #22+238*40,a1
  6489.  move.b thirddigit,d0
  6490.  move.w #6,d1
  6491.  bsr DRAWDIGIT
  6492.  
  6493.  rts
  6494.  
  6495. EnergyBar:
  6496.  move.w Energy,d0
  6497.  bge.s .okpo
  6498.  moveq #0,d0 
  6499. .okpo:
  6500.  
  6501.  ext.l d0
  6502.  divs #10,d0
  6503.  swap d0
  6504.  move.b d0,thirddigit
  6505.  swap d0
  6506.  ext.l d0
  6507.  divs #10,d0
  6508.  move.b d0,firstdigit
  6509.  swap d0
  6510.  move.b d0,secdigit
  6511.  
  6512.  move.l #borderchars+15*8*10,a0
  6513.  cmp.w #10,Energy
  6514.  blt.s .notsmallamo
  6515.  add.l #7*8*10,a0
  6516. .notsmallamo:
  6517.  
  6518.  move.l SCRNDRAWPT,a1
  6519.  add.l #34+238*40,a1
  6520.  move.b firstdigit,d0
  6521.  move.w #6,d1
  6522.  bsr DRAWDIGIT
  6523.  
  6524.  move.l SCRNDRAWPT,a1
  6525.  add.l #35+238*40,a1
  6526.  move.b secdigit,d0
  6527.  move.w #6,d1
  6528.  bsr DRAWDIGIT
  6529.  
  6530.  move.l SCRNDRAWPT,a1
  6531.  add.l #36+238*40,a1
  6532.  move.b thirddigit,d0
  6533.  move.w #6,d1
  6534.  bsr DRAWDIGIT
  6535.  
  6536.  move.l SCRNSHOWPT,a1
  6537.  add.l #34+238*40,a1
  6538.  move.b firstdigit,d0
  6539.  move.w #6,d1
  6540.  bsr DRAWDIGIT
  6541.  
  6542.  move.l SCRNSHOWPT,a1
  6543.  add.l #35+238*40,a1
  6544.  move.b secdigit,d0
  6545.  move.w #6,d1
  6546.  bsr DRAWDIGIT
  6547.  
  6548.  move.l SCRNSHOWPT,a1
  6549.  add.l #36+238*40,a1
  6550.  move.b thirddigit,d0
  6551.  move.w #6,d1
  6552.  bsr DRAWDIGIT
  6553.  
  6554.  
  6555.  rts
  6556.  
  6557.  
  6558. DRAWDIGIT:
  6559.  ext.w d0
  6560.  lea (a0,d0.w),a2
  6561. charlines:
  6562.  lea 30720(a1),a3 
  6563.  move.b (a2),(a1)
  6564.  move.b 10(a2),10240(a1)
  6565.  move.b 20(a2),20480(a1)
  6566.  move.b 30(a2),(a3)
  6567.  move.b 40(a2),10240(a3)
  6568.  move.b 50(a2),20480(a3)
  6569.  lea 30720(a3),a3
  6570.  move.b 60(a2),(a3)
  6571.  move.b 70(a2),10240(a3)
  6572.  
  6573.  add.w #10*8,a2
  6574.  add.w #40,a1
  6575.  dbra d1,charlines
  6576.  
  6577.  rts
  6578.  
  6579. borderchars: incbin "ab3:includes/bordercharsRAW"
  6580.  
  6581. NARRATOR:
  6582.  
  6583. ; sub.w #1,NARRTIME
  6584. ; bge .NOCHARYET
  6585. ; move.w #3,NARRTIME
  6586.  
  6587.  move.l #SCROLLSCRN,d1
  6588.  move.w d1,scroll
  6589.  swap d1
  6590.  move.w d1,scrolh
  6591.  
  6592.  move.w SCROLLTIMER,d0
  6593.  subq #1,d0
  6594.  move.w d0,SCROLLTIMER
  6595.  cmp.w #40,d0
  6596.  bge .NOCHARYET
  6597.  tst.w d0
  6598.  bge.s .okcha
  6599.  
  6600.  move.w #150,SCROLLTIMER
  6601.  bra .NOCHARYET
  6602.  
  6603. .okcha:
  6604.  
  6605.  move.l #SCROLLSCRN,a0
  6606.  add.w SCROLLXPOS,a0
  6607.  
  6608.  moveq #1,d7
  6609. .doachar: 
  6610.  
  6611.  move.l SCROLLPOINTER,a1
  6612.  moveq #0,d1
  6613.  move.b (a1)+,d1    ; character
  6614.  move.l a1,d2
  6615.  cmp.l ENDSCROLL,d2
  6616.  blt.s .notrestartscroll
  6617.  move.l #BLANKSCROLL,a1
  6618.  move.l #BLANKSCROLL+80,ENDSCROLL
  6619. .notrestartscroll
  6620.  move.l a1,SCROLLPOINTER
  6621.  
  6622.  move.l #SCROLLCHARS,a1
  6623.  asl.w #3,d1
  6624.  add.w d1,a1
  6625.  
  6626.  move.b (a1)+,(a0)
  6627.  move.b (a1)+,80(a0)
  6628.  move.b (a1)+,80*2(a0)
  6629.  move.b (a1)+,80*3(a0)
  6630.  move.b (a1)+,80*4(a0)
  6631.  move.b (a1)+,80*5(a0)
  6632.  move.b (a1)+,80*6(a0)
  6633.  move.b (a1)+,80*7(a0)
  6634.  
  6635.  addq #1,a0
  6636.  dbra d7,.doachar
  6637.  
  6638.  move.w SCROLLXPOS,d0
  6639.  addq #2,d0
  6640.  move.w d0,SCROLLXPOS
  6641.  cmp.w #80,d0
  6642.  blt .NOCHARYET
  6643.  move.w #0,SCROLLXPOS
  6644.  
  6645. .NOCHARYET:
  6646.  rts
  6647.  
  6648. ; cmp.w OldAmmo,d0
  6649. ; bne.s .gottochange
  6650. ; 
  6651.  
  6652. NARRTIME: dc.w 5
  6653.  
  6654. SCROLLCHARS: incbin "ab3:includes/scrollfont"
  6655.  
  6656. .NoChange
  6657.  rts
  6658.  
  6659. .gottochange:
  6660.   
  6661.  blt LessAmmo
  6662.  cmp.w #63,Ammo
  6663.  blt.s .NotMax
  6664.  move.w #63,Ammo
  6665. .NotMax:
  6666.  
  6667.  move.w Ammo,d0
  6668.  move.w OldAmmo,d2
  6669.  sub.w d0,d2
  6670.  beq.s .NoChange
  6671.  neg.w d2
  6672.  
  6673.  move.w #63,d3
  6674.  sub.w d0,d3
  6675.  
  6676.  move.l #Ammunition,a0
  6677.  lea (a0,d3.w*8),a0
  6678. ; move.l #borders+5184+25*16+1,a1
  6679.  lsl.w #5,d3
  6680.  add.w d3,a1
  6681.  lea 2592(a1),a2
  6682.  
  6683. AmmoRise:
  6684.  move.b (a0)+,(a1)
  6685.  move.b (a0)+,8(a1)
  6686.  add.w #16,a1
  6687.  move.b (a0)+,(a2)
  6688.  move.b (a0)+,8(a2)
  6689.  add.w #16,a2
  6690.  move.b (a0)+,(a1)
  6691.  move.b (a0)+,8(a1)
  6692.  add.w #16,a1
  6693.  move.b (a0)+,(a2)
  6694.  move.b (a0)+,8(a2)
  6695.  add.w #16,a2
  6696.  subq #1,d2
  6697.  bgt.s AmmoRise
  6698.  
  6699.  move.w Ammo,OldAmmo
  6700.  
  6701.  rts 
  6702.  
  6703.  
  6704. LessAmmo: 
  6705.  move.w OldAmmo,d2
  6706.  sub.w d0,d2
  6707.  
  6708.  move.w #63,d3
  6709.  sub.w OldAmmo,d3
  6710.  
  6711. ; move.l #borders++5184+25*16+1,a1
  6712.  asl.w #5,d3
  6713.  add.w d3,a1
  6714.  lea 2592(a1),a2
  6715.  
  6716. AmmoDrain:
  6717.  move.b #0,(a1)
  6718.  move.b #0,8(a1)
  6719.  move.b #0,(a2)
  6720.  move.b #0,8(a2)
  6721.  add.w #16,a1
  6722.  add.w #16,a2
  6723.  move.b #0,(a1)
  6724.  move.b #0,8(a1)
  6725.  move.b #0,(a2)
  6726.  move.b #0,8(a2)
  6727.  add.w #16,a1
  6728.  add.w #16,a2
  6729.  subq #1,d2
  6730.  bgt.s AmmoDrain
  6731.  
  6732.  move.w Ammo,OldAmmo
  6733.  
  6734.  rts 
  6735.  
  6736. nulop:
  6737.  move.w #$0010,$dff000+intreq
  6738.  rte
  6739.  
  6740. doanything: dc.w 0
  6741.  
  6742. end:
  6743. ;     _break #0
  6744.  
  6745.  
  6746.  move.l #$dff000,a6
  6747.  move.w #$f,$dff000+dmacon
  6748. waitfortop22:
  6749.  btst.b #0,intreqrl(a6)
  6750.  beq waitfortop22
  6751. waitfortop222:
  6752.  btst.b #0,intreqrl(a6)
  6753.  beq waitfortop222
  6754.  
  6755.  clr.b dosounds
  6756.  clr.b doanything
  6757.  
  6758.  move.w PLAYERONEHEALTH,Energy
  6759.  cmp.b #'s',mors
  6760.  bne.s .notsl
  6761.  move.w PLAYERTWOHEALTH,Energy
  6762. .notsl:
  6763.  
  6764.  move.l drawpt,d0
  6765.  move.l olddrawpt,drawpt
  6766.  move.l d0,olddrawpt
  6767.  
  6768. ; cmp.b #'b',Prefsfile+3
  6769. ; bne.s .noback
  6770. ; jsr mt_end
  6771. ;.noback
  6772.  
  6773.  tst.w Energy
  6774.  bgt.s wevewon
  6775.  move.w #0,Energy
  6776.  bsr EnergyBar
  6777.  
  6778.  move.l #gameover,mt_data
  6779.  st UseAllChannels
  6780.  clr.b reachedend
  6781.  jsr mt_init
  6782. playgameover:
  6783.  move.l #$dff000,a6
  6784. waitfortop2:
  6785.  
  6786.     
  6787.  btst.b #0,intreqrl(a6)
  6788.  beq waitfortop2
  6789.  move.w #$1,intreq(a6)
  6790.  
  6791.     
  6792.  jsr mt_music
  6793.  
  6794.  
  6795.     
  6796.  tst.b reachedend
  6797.  beq.s playgameover
  6798.  
  6799.  bra wevelost
  6800.  
  6801.  
  6802. wevewon:
  6803.  
  6804.  
  6805.  bsr EnergyBar
  6806.  
  6807.  cmp.b #'n',mors
  6808.  bne.s .nonextlev
  6809.  add.w #1,MAXLEVEL
  6810.  st FINISHEDLEVEL
  6811. .nonextlev:
  6812.  
  6813.  move.l #welldone,mt_data
  6814.  st UseAllChannels
  6815.  clr.b reachedend
  6816.  
  6817.  jsr mt_init
  6818. playwelldone:
  6819.  move.l #$dff000,a6
  6820. waitfortop3:
  6821.  btst.b #0,intreqrl(a6)
  6822.  beq waitfortop3
  6823.  move.w #$1,intreq(a6)
  6824.  
  6825.  jsr mt_music
  6826.  
  6827.  tst.b reachedend
  6828.  beq.s playwelldone
  6829.  
  6830. wevelost:
  6831.  
  6832.  PROTICHECK a0
  6833.  
  6834.  jmp closeeverything 
  6835.  
  6836. endnomusic
  6837.  clr.b doanything
  6838.  
  6839. ; cmp.b #'b',Prefsfile+3
  6840. ; bne.s .noback
  6841. ; jsr mt_end
  6842. ;.noback
  6843. *******************************
  6844. ; cmp.b #'n',mors
  6845. ; bne.s .nonextlev
  6846. ; cmp.w #15,MAXLEVEL
  6847. ; bge.s .nonextlev
  6848. ; add.w #1,MAXLEVEL
  6849. ; st FINISHEDLEVEL
  6850. ;.nonextlev:
  6851. ******************************
  6852.  
  6853.  jmp closeeverything
  6854.  
  6855. do32:
  6856.  move.w #31,d7
  6857.  move.w #$180,d1
  6858. across:
  6859.  move.w d1,(a1)+
  6860.  move.w d1,(a3)+
  6861.  move.w #0,(a1)+ 
  6862.  move.w #0,(a3)+
  6863.  add.w #2,d1
  6864.  dbra d7,across
  6865.  rts
  6866.  
  6867. string:
  6868.     dc.b    'credits',0
  6869.  
  6870. ENDGAMESCROLL:
  6871.  
  6872.     move.l    4.w,a6
  6873.     move.l    #string,d1
  6874.     moveq    #0,d2
  6875.     moveq    #0,d3
  6876.     jsr    _LVOExecute(a6)
  6877.  
  6878. ; include "endscroll.s"
  6879.  
  6880. ***********************************
  6881.  include "ab3:source_4000/CD32JOY"
  6882.  
  6883.  
  6884.  
  6885. *************************************
  6886. * Set left and right clip values
  6887. *************************************
  6888.  
  6889.  
  6890.  
  6891. NEWsetlclip:
  6892.  move.l #OnScreen,a1
  6893.  move.l #Rotated,a2
  6894.  move.l CONNECT_TABLE,a3
  6895.  move.l Points,a4
  6896.  
  6897.  move.w (a0),d0
  6898.  bge.s .notignoreleft
  6899.  
  6900. ; move.l #0,(a6)
  6901.  
  6902.  bra .leftnotoktoclip
  6903. .notignoreleft:
  6904.  
  6905.  move.w 6(a2,d0*8),d3    ; left z val
  6906.  bgt.s .leftclipinfront
  6907.  addq #2,a0
  6908.  rts
  6909.  
  6910.  tst.w 6(a2,d0*8)
  6911.  bgt.s .leftnotoktoclip
  6912. .ignoreboth:
  6913. ; move.l #0,(a6)
  6914. ; move.l #96*65536,4(a6)
  6915.  move.w #0,leftclip
  6916.  move.w RIGHTX,rightclip
  6917.  addq #8,a6
  6918.  addq #2,a0
  6919.  rts
  6920.  
  6921. .leftclipinfront:
  6922.  move.w (a1,d0*2),d1    ; left x on screen
  6923.  move.w (a0),d2
  6924.  move.w 2(a3,d2.w*4),d2
  6925.  move.w (a1,d2.w*2),d2
  6926.  cmp.w d1,d2
  6927.  bgt.s .leftnotoktoclip
  6928.  
  6929.  
  6930. *************************************
  6931.  
  6932.  move.w 2(a3,d0.w*4),d6
  6933.  
  6934.  move.w (a4,d0.w*4),d2
  6935.  move.w 2(a4,d0.w*4),d3
  6936.  move.w (a4,d6.w*4),d4
  6937.  move.w 2(a4,d6.w*4),d5
  6938.  
  6939.  sub.w d2,d4    ;dx
  6940.  sub.w d3,d5    ;dz
  6941.  move.w xoff,d0
  6942.  move.w zoff,d6
  6943.  
  6944.  sub.w d2,d0
  6945.  sub.w d3,d6
  6946.  
  6947.  muls d0,d4
  6948.  muls d6,d5
  6949.  add.l d4,d5
  6950.  bge.s .leftnotoktoclip
  6951.  
  6952. *************************************
  6953.  
  6954.  
  6955.  
  6956. ; move.w d1,(a6)
  6957. ; move.w d3,2(a6)
  6958.  cmp.w leftclip,d1
  6959.  ble.s .leftnotoktoclip
  6960.  move.w d1,leftclip
  6961. .leftnotoktoclip:
  6962.  
  6963.  addq #2,a0
  6964.  
  6965.  rts
  6966.  
  6967. NEWsetrclip
  6968.  move.l #OnScreen,a1
  6969.  move.l #Rotated,a2
  6970.  move.l CONNECT_TABLE,a3
  6971.  move.w (a0),d0
  6972.  bge.s .notignoreright
  6973. ; move.w #96,4(a6)
  6974. ; move.w #0,6(a6)
  6975.  move.w #0,d4
  6976.  bra .rightnotoktoclip
  6977. .notignoreright:
  6978.  move.w 6(a2,d0*8),d4    ; right z val
  6979.  bgt.s .rightclipinfront
  6980. ; move.w #96,4(a6)
  6981. ; move.w #0,6(a6)
  6982.  bra.s .rightnotoktoclip
  6983.  
  6984. .rightclipinfront:
  6985.  move.w (a1,d0*2),d1    ; right x on screen
  6986.  move.w (a0),d2
  6987.  move.w (a3,d2.w*4),d2
  6988.  move.w (a1,d2.w*2),d2
  6989.  cmp.w d1,d2
  6990.  blt.s .rightnotoktoclip
  6991. ; move.w d1,4(a6)
  6992. ; move.w d4,6(a6)
  6993.  
  6994.  
  6995. *************************************
  6996.  
  6997.  move.w (a3,d0.w*4),d6
  6998.  
  6999.  move.w (a4,d0.w*4),d2
  7000.  move.w 2(a4,d0.w*4),d3
  7001.  move.w (a4,d6.w*4),d4
  7002.  move.w 2(a4,d6.w*4),d5
  7003.  
  7004.  sub.w d2,d4    ;dx
  7005.  sub.w d3,d5    ;dz
  7006.  move.w xoff,d0
  7007.  move.w zoff,d6
  7008.  
  7009.  sub.w d2,d0
  7010.  sub.w d3,d6
  7011.  
  7012.  muls d0,d4
  7013.  muls d6,d5
  7014.  add.l d4,d5
  7015.  ble.s .rightnotoktoclip
  7016.  
  7017. *************************************
  7018.  
  7019.  
  7020.  
  7021.  cmp.w rightclip,d1
  7022.  bge.s .rightnotoktoclip
  7023.  addq #1,d1
  7024.  move.w d1,rightclip
  7025. .rightnotoktoclip:
  7026.  addq #8,a6
  7027.  addq #2,a0
  7028.  rts
  7029.  
  7030. FIRSTsetlrclip:
  7031.  move.l #OnScreen,a1
  7032.  move.l #Rotated,a2
  7033.  
  7034.  move.w (a0)+,d0
  7035.  bge.s .notignoreleft
  7036.  bra .leftnotoktoclip
  7037. .notignoreleft:
  7038.  
  7039.  move.w 6(a2,d0*8),d3    ; left z val
  7040.  bgt.s .leftclipinfront
  7041.  
  7042.  move.w (a0),d0
  7043.  blt.s .ignoreboth
  7044.  tst.w 6(a2,d0*8)
  7045.  bgt.s .leftnotoktoclip
  7046. .ignoreboth
  7047.  move.w RIGHTX,rightclip
  7048.  move.w #0,leftclip
  7049.  addq #2,a0
  7050.  rts
  7051.  
  7052. .leftclipinfront:
  7053.  move.w (a1,d0*2),d1    ; left x on screen
  7054.  cmp.w leftclip,d1
  7055.  ble.s .leftnotoktoclip
  7056.  move.w d1,leftclip
  7057. .leftnotoktoclip:
  7058.  
  7059.  move.w (a0)+,d0
  7060.  bge.s .notignoreright
  7061.  move.w #0,d4
  7062.  bra .rightnotoktoclip
  7063. .notignoreright:
  7064.  move.w 6(a2,d0*8),d4    ; right z val
  7065.  ble.s .rightnotoktoclip
  7066.  
  7067. .rightclipinfront:
  7068.  move.w (a1,d0*2),d1    ; right x on screen
  7069.  addq #1,d1
  7070.  cmp.w rightclip,d1
  7071.  bge.s .rightnotoktoclip
  7072.  move.w d1,rightclip
  7073. .rightnotoktoclip:
  7074.  
  7075. ; move.w leftclip,d0
  7076. ; move.w rightclip,d1
  7077. ; cmp.w d0,d1
  7078. ; bge.s .noswap
  7079. ; move.w #192,rightclip
  7080. ; move.w #0,leftclip
  7081. ;.noswap:
  7082.  
  7083.  rts
  7084.  
  7085.  
  7086. leftclip2: dc.w 0
  7087. rightclip2: dc.w 0
  7088. ZoneBright: dc.w 0
  7089.  
  7090. npolys: dc.w 0
  7091.  
  7092. PLR1_fire: dc.b 0
  7093. PLR2_fire: dc.b 0
  7094.  
  7095. *****************************************************
  7096.  
  7097.  
  7098. pastdata:
  7099. ***********************************
  7100. * This routine animates brightnesses.
  7101.  
  7102.  
  7103. liftpt: dc.l liftanimtab
  7104.  
  7105. brightpt:
  7106.  dc.l brightanimtab
  7107.  
  7108.  
  7109. liftanim:
  7110.  rts
  7111.  
  7112. ******************************
  7113.  include "ab3:source_4000/ObjectMove"
  7114.  include "ab3:source_4000/newAnims"
  7115.  include "ab3:source_4000/airoutine.s"
  7116. ******************************
  7117. startpass:
  7118. ; include "ab3:source_4000/password_reloc.s"
  7119. endpass:
  7120.  
  7121. rotanimpt: dc.w 0
  7122. xradd: dc.w 5
  7123. yradd: dc.w 8
  7124. xrpos: dc.w 320
  7125. yrpos: dc.w 320
  7126.  
  7127. rotanim:
  7128.  rts
  7129.  
  7130. option:
  7131.  dc.l 0,0
  7132.  
  7133. ********** WALL STUFF *******************************
  7134.  
  7135.  include "AB3:source_4000/hireswall.s"
  7136.  include "AB3:source_4000/hiresgourwall.s"
  7137.  
  7138. *****************************************************
  7139.  
  7140. ******************************************
  7141. * floor polygon
  7142.  
  7143. numsidestd: dc.w 0
  7144. bottomline: dc.w 0
  7145.  
  7146. checkforwater:
  7147.  tst.b usewater
  7148.  beq.s .notwater
  7149.  
  7150.  move.l Roompt,a1
  7151.  move.w (a1),d7
  7152.  cmp.w currzone,d7
  7153.  bne.s .notwater
  7154.  
  7155.  move.b #$f,fillscrnwater
  7156.  
  7157. .notwater:
  7158.  move.w (a0)+,d6    ; sides-1
  7159.  add.w d6,d6
  7160.  add.w d6,a0
  7161.  add.w #4+6,a0
  7162.  rts
  7163.  
  7164.  rts
  7165.  
  7166. ;NewCornerBuff:
  7167. ; ds.l 100
  7168. CLRNOFLOOR: dc.w 0
  7169.  
  7170. itsafloordraw:
  7171.  
  7172. * If D0 =1 then its a floor otherwise (=2) it's
  7173. * a roof.
  7174.  
  7175.  move.w #0,above
  7176.  move.w (a0)+,d6    ; ypos of poly
  7177.  
  7178.  tst.b usewater
  7179.  beq.s .oknon
  7180.  tst.b DOANYWATER
  7181.  beq dontdrawreturn
  7182. .oknon
  7183.  
  7184.  move.w d6,d7
  7185.  ext.l d7
  7186.  asl.l #6,d7
  7187.  cmp.l TOPOFROOM,d7
  7188.  blt checkforwater
  7189.  cmp.l BOTOFROOM,d7
  7190.  bgt.s dontdrawreturn
  7191.  
  7192.  move.w leftclip,d7
  7193.  cmp.w rightclip,d7
  7194.  bge.s dontdrawreturn
  7195.  
  7196.  sub.w flooryoff,d6
  7197.  bgt.s below
  7198.  blt.s aboveplayer
  7199.  
  7200.  tst.b usewater
  7201.  beq.s .notwater
  7202.  
  7203.  move.l Roompt,a1
  7204.  move.w (a1),d7
  7205.  cmp.w currzone,d7
  7206.  
  7207.  bne.s .notwater
  7208.  
  7209.  st fillscrnwater
  7210.  
  7211. .notwater:
  7212.  
  7213.  
  7214. dontdrawreturn:
  7215.  move.w (a0)+,d6    ; sides-1
  7216.  add.w d6,d6
  7217.  add.w d6,a0
  7218.  add.w #4+6,a0
  7219.  rts
  7220. aboveplayer:
  7221.  
  7222.  tst.b usewater
  7223.  beq.s .notwater
  7224.  
  7225.  move.l Roompt,a1
  7226.  move.w (a1),d7
  7227.  cmp.w currzone,d7
  7228.  bne.s .notwater
  7229.  
  7230.  move.b #$f,fillscrnwater
  7231.  
  7232. .notwater:
  7233.  
  7234.  btst #1,d0
  7235.  beq.s dontdrawreturn
  7236.  move.w MIDDLEY,d7
  7237.  sub.w topclip,d7 
  7238.  ble.s dontdrawreturn
  7239.  move.w #1,d0
  7240.  move.w d0,above
  7241.  neg.w d6
  7242.  bra.s notbelow
  7243. below:
  7244.  move.w botclip,d7
  7245.  sub.w MIDDLEY,d7
  7246.  ble.s dontdrawreturn
  7247. notbelow:
  7248.  btst #0,d0
  7249.  beq.s dontdrawreturn
  7250.  move.w d6,distaddr
  7251.  muls #64,d6
  7252.  move.l d6,ypos
  7253.  ext.l d7
  7254.  divs.l d7,d6        ; zpos of bottom
  7255.             ; visible line
  7256.  
  7257.  beq dontdrawreturn
  7258.  
  7259.  cmp.l #32767,d6
  7260.  bgt dontdrawreturn
  7261.             
  7262.  move.w d6,minz
  7263.  move.w d7,bottomline
  7264.  
  7265. ; Go round each point finding out
  7266. ; if it should be visible or not.
  7267.  
  7268.  move.l a0,-(a7)
  7269.  
  7270.  move.w (a0)+,d7    ; number of sides
  7271.  move.l #Rotated,a1
  7272.  move.l #OnScreen,a2
  7273. ; move.l #NewCornerBuff,a3
  7274.  moveq #0,d4
  7275.  moveq #0,d5
  7276.  moveq #0,d6
  7277.  clr.b anyclipping
  7278.  
  7279. cornerprocessloop:
  7280.  
  7281.  move.w (a0)+,d0
  7282.  and.w #$fff,d0
  7283.  move.w 6(a1,d0.w*8),d1
  7284.  ble  .canttell
  7285.  
  7286.  move.w (a2,d0.w*2),d3
  7287.  cmp.w leftclip,d3
  7288.  bgt.s .nol
  7289.  st d4
  7290.  st anyclipping
  7291.  bra.s .nos
  7292. .nol:
  7293.  cmp.w rightclip,d3
  7294.  blt.s .nor
  7295.  st d6
  7296.  st anyclipping
  7297.  bra.s .nos
  7298. .nor:
  7299.  st d5
  7300. .nos:
  7301.  bra .cantell
  7302.  
  7303. .canttell:
  7304.  st d5
  7305.  st anyclipping
  7306.  
  7307. .cantell:
  7308.  
  7309.  
  7310.  dbra d7,cornerprocessloop
  7311.  
  7312.  
  7313.  move.l (a7)+,a0
  7314.  tst.b d5
  7315.  bne.s somefloortodraw
  7316.  eor.b d4,d6
  7317.  bne dontdrawreturn
  7318.  
  7319. somefloortodraw:
  7320.  
  7321.  tst.b gourfloor
  7322.  bne goursides
  7323.  
  7324.  move.w #300,top
  7325.  move.w #-1,bottom
  7326.  move.w #0,drawit
  7327.  move.l #Rotated,a1
  7328.  move.l #OnScreen,a2
  7329.  move.w (a0)+,d7    ; no of sides
  7330. sideloop:
  7331.  move.w minz,d6
  7332.  move.w (a0)+,d1
  7333.  move.w (a0),d3
  7334.  and.w #$fff,d1
  7335.  and.w #$fff,d3
  7336.  
  7337.  move.w 6(a1,d1*8),d4    ;first z
  7338.  cmp.w d6,d4
  7339.  bgt firstinfront
  7340.  move.w 6(a1,d3*8),d5    ; sec z
  7341.  cmp.w d6,d5
  7342.  ble bothbehind
  7343. ** line must be on left and partially behind.
  7344.  sub.w d5,d4
  7345.  move.l (a1,d1*8),d0
  7346.  sub.l (a1,d3*8),d0
  7347.  asr.l #7,d0
  7348.  sub.w d5,d6
  7349.  muls d6,d0    ; new x coord
  7350.  divs d4,d0
  7351.  ext.l d0
  7352.  asl.l #7,d0
  7353.  
  7354.  add.l (a1,d3*8),d0
  7355.  move.w minz,d4
  7356.  move.w (a2,d3*2),d2
  7357.  divs d4,d0
  7358.  add.w MIDDLEX,d0
  7359.  move.l ypos,d3
  7360.  divs d5,d3
  7361.  move.w bottomline,d1 
  7362.  bra lineclipped
  7363.  
  7364. firstinfront:
  7365.  move.w 6(a1,d3*8),d5    ; sec z
  7366.  cmp.w d6,d5
  7367.  bgt bothinfront
  7368. ** line must be on right and partially behind.
  7369.  sub.w d4,d5    ; dz
  7370.  move.l (a1,d3*8),d2
  7371.  sub.l (a1,d1*8),d2    ; dx
  7372.  sub.w d4,d6
  7373.  asr.l #7,d2
  7374.  muls d6,d2    ; new x coord
  7375.  divs d5,d2
  7376.  ext.l d2
  7377.  asl.l #7,d2
  7378.  add.l (a1,d1*8),d2
  7379.  move.w minz,d5
  7380.  move.w (a2,d1*2),d0
  7381.  divs d5,d2
  7382.  add.w MIDDLEX,d2
  7383.  move.l ypos,d1
  7384.  divs d4,d1
  7385.  move.w bottomline,d3 
  7386.  bra lineclipped
  7387.  
  7388. bothinfront:
  7389.  
  7390. * Also, usefully enough, both are on-screen
  7391. * so no bottom clipping is needed.
  7392.  
  7393.  move.w (a2,d1*2),d0    ; first x
  7394.  move.w (a2,d3*2),d2    ; second x
  7395.  move.l ypos,d1
  7396.  move.l d1,d3
  7397.  divs d4,d1        ; first y
  7398.  divs d5,d3        ; second y
  7399. lineclipped:
  7400.  move.l #rightsidetab,a3
  7401.  cmp.w d1,d3
  7402.  beq lineflat
  7403.  st drawit
  7404.  bgt lineonright
  7405.  move.l #leftsidetab,a3
  7406.  exg d1,d3
  7407.  exg d0,d2
  7408.  
  7409.  lea (a3,d1*2),a3
  7410.  
  7411.  cmp.w top(pc),d1
  7412.  bge.s .nonewtop
  7413.  move.w d1,top
  7414. .nonewtop:
  7415.  cmp.w bottom(pc),d3
  7416.  ble.s .nonewbot
  7417.  move.w d3,bottom
  7418. .nonewbot:
  7419.  
  7420.  sub.w d1,d3    ; dy
  7421.  sub.w d0,d2    ; dx
  7422.  
  7423.  blt .linegoingleft
  7424.  
  7425.  ext.l d2
  7426.  divs d3,d2
  7427.  move.w d2,d6
  7428.  swap d2
  7429.  
  7430. ; moveq #0,d6
  7431. ; sub.w d3,d2
  7432. ; blt.s .noco
  7433. ;.makeco
  7434. ; addq #1,d6
  7435. ; sub.w d3,d2
  7436. ; bge.s .makeco
  7437. ;.noco
  7438. ; add.w d3,d2
  7439.  
  7440.  move.w d3,d4
  7441.  move.w d3,d5
  7442.  subq #1,d5
  7443.  move.w d6,d1
  7444.  addq #1,d1
  7445.  
  7446. .pixlopright:
  7447.  move.w d0,(a3)+
  7448.  sub.w d2,d4
  7449.  bge.s .nobigstep
  7450.  add.w d1,d0
  7451.  add.w d3,d4
  7452.  dbra d5,.pixlopright
  7453.  bra lineflat
  7454. .nobigstep
  7455.  add.w d6,d0
  7456.  dbra d5,.pixlopright
  7457.  bra lineflat
  7458.  
  7459. .linegoingleft:
  7460.  
  7461.  neg.w d2
  7462.  
  7463.  ext.l d2
  7464.  divs d3,d2
  7465.  move.w d2,d6
  7466.  swap d2
  7467.  
  7468.  
  7469. ; moveq #0,d6
  7470. ; sub.w d3,d2
  7471. ; blt.s .nocol
  7472. ;.makecol
  7473. ; addq #1,d6
  7474. ; sub.w d3,d2
  7475. ; bge.s .makecol
  7476. ;.nocol
  7477. ; add.w d3,d2
  7478.  
  7479.  
  7480.  
  7481.  move.w d3,d4
  7482.  move.w d3,d5
  7483.  subq #1,d5
  7484.  
  7485.  move.w d6,d1
  7486.  addq #1,d1
  7487.  
  7488. .pixlopleft:
  7489.  sub.w d2,d4
  7490.  bge.s .nobigstepl
  7491.  sub.w d1,d0
  7492.  add.w d3,d4
  7493.  move.w d0,(a3)+
  7494.  dbra d5,.pixlopleft
  7495.  bra lineflat
  7496.  
  7497. .nobigstepl
  7498.  sub.w d6,d0
  7499.  move.w d0,(a3)+
  7500.  dbra d5,.pixlopleft
  7501.  bra lineflat
  7502.  
  7503. lineonright:
  7504.  
  7505.  lea (a3,d1*2),a3
  7506.  
  7507.  cmp.w top(pc),d1
  7508.  bge.s .nonewtop
  7509.  move.w d1,top
  7510. .nonewtop:
  7511.  cmp.w bottom(pc),d3
  7512.  ble.s .nonewbot
  7513.  move.w d3,bottom
  7514. .nonewbot:
  7515.  
  7516.  sub.w d1,d3    ; dy
  7517.  sub.w d0,d2    ; dx
  7518.  blt .linegoingleft
  7519. ; addq #1,d0
  7520.  ext.l d2
  7521.  divs d3,d2
  7522.  move.w d2,d6
  7523.  swap d2
  7524.  
  7525. ; moveq #0,d6
  7526. ; sub.w d3,d2
  7527. ; blt.s .noco
  7528. ;.makeco
  7529. ; addq #1,d6
  7530. ; sub.w d3,d2
  7531. ; bge.s .makeco
  7532. ;.noco
  7533. ; add.w d3,d2
  7534.  
  7535.  move.w d3,d4
  7536.  move.w d3,d5
  7537.  subq #1,d5
  7538.  move.w d6,d1
  7539.  addq #1,d1
  7540.  
  7541. .pixlopright:
  7542.  sub.w d2,d4
  7543.  bge.s .nobigstep
  7544.  add.w d1,d0
  7545.  add.w d3,d4
  7546.  move.w d0,(a3)+
  7547.  dbra d5,.pixlopright
  7548.  bra lineflat
  7549.  
  7550. .nobigstep
  7551.  add.w d6,d0
  7552.  move.w d0,(a3)+
  7553.  dbra d5,.pixlopright
  7554.  bra lineflat
  7555.  
  7556. .linegoingleft:
  7557. ; addq #1,d0
  7558.  neg.w d2
  7559.  
  7560.  ext.l d2
  7561.  divs d3,d2
  7562.  move.w d2,d6
  7563.  swap d2
  7564.  
  7565.  
  7566. ; moveq #0,d6
  7567. ; sub.w d3,d2
  7568. ; blt.s .nocol
  7569. ;.makecol
  7570. ; addq #1,d6
  7571. ; sub.w d3,d2
  7572. ; bge.s .makecol
  7573. ;.nocol
  7574. ; add.w d3,d2
  7575.  
  7576.  move.w d3,d4
  7577.  move.w d3,d5
  7578.  subq #1,d5
  7579.  move.w d6,d1
  7580.  addq #1,d1
  7581.  
  7582. .pixlopleft:
  7583.  move.w d0,(a3)+
  7584.  sub.w d2,d4
  7585.  bge.s .nobigstepl
  7586.  sub.w d1,d0
  7587.  add.w d3,d4
  7588.  dbra d5,.pixlopleft
  7589.  bra lineflat
  7590.  
  7591. .nobigstepl
  7592.  sub.w d6,d0
  7593.  dbra d5,.pixlopleft
  7594.  
  7595. lineflat:
  7596.  
  7597. bothbehind:
  7598.  dbra d7,sideloop
  7599.  bra pastsides
  7600.  
  7601. fbr: dc.w 0
  7602. sbr: dc.w 0
  7603. FloorPtBrights: dc.l 0
  7604.  
  7605. goursides:
  7606.  
  7607.  move.w #300,top
  7608.  move.w #-1,bottom
  7609.  move.w #0,drawit
  7610.  move.l #Rotated,a1
  7611.  move.l #OnScreen,a2
  7612.  move.w (a0)+,d7    ; no of sides
  7613. sideloopGOUR:
  7614.  move.w minz,d6
  7615.  move.w (a0)+,d1
  7616.  move.w (a0),d3
  7617.  
  7618.  move.w d1,d4
  7619.  move.w d3,d5
  7620.  and.w #$0fff,d1
  7621.  and.w #$0fff,d3
  7622.  
  7623.  rol.w #4,d4
  7624.  rol.w #4,d5
  7625.  and.w #$f,d4
  7626.  and.w #$f,d5
  7627.  
  7628.  move.l FloorPtBrights,a4
  7629.  move.w (a4,d4.w*8),d4
  7630.  bge.s .okpos1
  7631.  neg.w d4
  7632. .okpos1:
  7633.  sub.w #300,d4
  7634.  move.w d4,fbr
  7635.  move.w (a4,d5.w*8),d4
  7636.  bge.s .okpos2
  7637.  neg.w d4
  7638. .okpos2:
  7639.  sub.w #300,d4
  7640.  move.w d4,sbr
  7641.  
  7642.  move.w 6(a1,d1*8),d4    ;first z
  7643.  cmp.w d6,d4
  7644.  bgt firstinfrontGOUR
  7645.  move.w 6(a1,d3*8),d5    ; sec z
  7646.  cmp.w d6,d5
  7647.  ble bothbehindGOUR
  7648. ** line must be on left and partially behind.
  7649.  sub.w d5,d4
  7650.  
  7651.  move.w fbr,d0
  7652.  sub.w sbr,d0
  7653.  sub.w d5,d6
  7654.  muls d6,d0
  7655.  divs d4,d0
  7656.  add.w sbr,d0
  7657.  move.w d0,fbr
  7658.  
  7659.  move.l (a1,d1*8),d0
  7660.  sub.l (a1,d3*8),d0
  7661.  asr.l #7,d0
  7662.  muls d6,d0    ; new x coord
  7663.  divs d4,d0
  7664.  ext.l d0
  7665.  asl.l #7,d0
  7666.  
  7667.  add.l (a1,d3*8),d0
  7668.  move.w minz,d4
  7669.  move.w (a2,d3*2),d2
  7670.  divs d4,d0
  7671.  add.w MIDDLEX,d0
  7672.  move.l ypos,d3
  7673.  divs d5,d3
  7674.  
  7675.  move.w bottomline,d1 
  7676.  bra lineclippedGOUR
  7677.  
  7678. firstinfrontGOUR:
  7679.  move.w 6(a1,d3*8),d5    ; sec z
  7680.  cmp.w d6,d5
  7681.  bgt bothinfrontGOUR
  7682. ** line must be on right and partially behind.
  7683.  sub.w d4,d5    ; dz
  7684.  
  7685.  move.w sbr,d2
  7686.  sub.w fbr,d2
  7687.  sub.w d4,d6
  7688.  muls d6,d2
  7689.  divs d5,d2
  7690.  add.w fbr,d2
  7691.  move.w d2,sbr
  7692.  
  7693.  move.l (a1,d3*8),d2
  7694.  sub.l (a1,d1*8),d2    ; dx
  7695.  asr.l #7,d2
  7696.  muls d6,d2    ; new x coord
  7697.  divs d5,d2
  7698.  ext.l d2
  7699.  asl.l #7,d2
  7700.  add.l (a1,d1*8),d2
  7701.  move.w minz,d5
  7702.  move.w (a2,d1*2),d0
  7703.  divs d5,d2
  7704.  add.w MIDDLEX,d2
  7705.  move.l ypos,d1
  7706.  divs d4,d1
  7707.  move.w bottomline,d3 
  7708.  bra lineclippedGOUR
  7709.  
  7710. bothinfrontGOUR:
  7711.  
  7712. * Also, usefully enough, both are on-screen
  7713. * so no bottom clipping is needed.
  7714.  
  7715.  move.w (a2,d1*2),d0    ; first x
  7716.  move.w (a2,d3*2),d2    ; second x
  7717.  move.l ypos,d1
  7718.  move.l d1,d3
  7719.  divs d4,d1        ; first y
  7720.  divs d5,d3        ; second y
  7721. lineclippedGOUR:
  7722.  move.l #rightsidetab,a3
  7723.  cmp.w d1,d3
  7724.  bne linenotflatGOUR
  7725.  
  7726. ; move.w fbr,d4
  7727. ; move.w sbr,d5
  7728. ; cmp.w d0,d2
  7729. ; bgt.s .nsw
  7730. ; exg d4,d5
  7731. ;.nsw:
  7732.  
  7733. ; move.l #leftbrighttab,a3
  7734. ; move.w d4,(a3,d3.w)
  7735. ; move.l #rightbrighttab,a3
  7736. ; move.w d5,(a3,d3.w) 
  7737.  bra lineflatGOUR
  7738.  
  7739. linenotflatGOUR
  7740.  st drawit
  7741.  bgt lineonrightGOUR
  7742.  move.l #leftsidetab,a3
  7743.  exg d1,d3
  7744.  exg d0,d2
  7745.  
  7746.  lea (a3,d1*2),a3
  7747.  lea leftbrighttab-leftsidetab(a3),a4
  7748.  
  7749.  cmp.w top(pc),d1
  7750.  bge.s .nonewtop
  7751.  move.w d1,top
  7752. .nonewtop:
  7753.  cmp.w bottom(pc),d3
  7754.  ble.s .nonewbot
  7755.  move.w d3,bottom
  7756. .nonewbot:
  7757.  
  7758.  sub.w d1,d3    ; dy
  7759.  sub.w d0,d2    ; dx
  7760.  
  7761.  blt .linegoingleft
  7762.  
  7763.  ext.l d2
  7764.  divs d3,d2
  7765.  move.w d2,d6
  7766.  swap d2
  7767.  move.w d2,a5
  7768.  
  7769. ; moveq #0,d6
  7770. ; sub.w d3,d2
  7771. ; blt.s .noco
  7772. ;.makeco
  7773. ; addq #1,d6
  7774. ; sub.w d3,d2
  7775. ; bge.s .makeco
  7776. ;.noco
  7777. ; add.w d3,d2
  7778.  
  7779.  move.w d3,d4
  7780.  move.w d3,d5
  7781.  subq #1,d5
  7782.  move.w d6,d1
  7783.  addq #1,d1
  7784.  move.w d1,a6
  7785.  
  7786.  moveq #0,d1
  7787.  move.w sbr,d1
  7788.  move.w fbr,d2
  7789.  sub.w d1,d2
  7790.  ext.l d2
  7791.  asl.w #8,d2
  7792.  asl.w #2,d2
  7793.  divs d3,d2 
  7794.  ext.l d2
  7795.  asl.l #6,d2
  7796.  swap d1
  7797.  
  7798. .pixlopright:
  7799.  move.w d0,(a3)+
  7800.  swap d1
  7801.  move.w d1,(a4)+
  7802.  swap d1
  7803.  add.l d2,d1
  7804.  
  7805.  sub.w a5,d4
  7806.  bge.s .nobigstep
  7807.  add.w a6,d0
  7808.  add.w d3,d4
  7809.  dbra d5,.pixlopright
  7810.  bra lineflatGOUR
  7811. .nobigstep
  7812.  
  7813.  add.w d6,d0
  7814.  dbra d5,.pixlopright
  7815.  bra lineflatGOUR
  7816.  
  7817. .linegoingleft:
  7818.  
  7819.  neg.w d2
  7820.  
  7821.  ext.l d2
  7822.  divs d3,d2
  7823.  move.w d2,d6
  7824.  swap d2
  7825.  
  7826.  
  7827. ; moveq #0,d6
  7828. ; sub.w d3,d2
  7829. ; blt.s .nocol
  7830. ;.makecol
  7831. ; addq #1,d6
  7832. ; sub.w d3,d2
  7833. ; bge.s .makecol
  7834. ;.nocol
  7835. ; add.w d3,d2
  7836.  
  7837.  move.w d3,d4
  7838.  move.w d3,d5
  7839.  subq #1,d5
  7840.  
  7841.  move.w d6,d1
  7842.  addq #1,d1
  7843.  move.w d1,a6
  7844.  move.w d2,a5
  7845.  
  7846.  moveq #0,d1
  7847.  move.w sbr,d1
  7848.  move.w fbr,d2
  7849.  sub.w d1,d2
  7850.  ext.l d2
  7851.  asl.w #8,d2
  7852.  asl.w #2,d2
  7853.  divs d3,d2 
  7854.  ext.l d2
  7855.  asl.l #6,d2
  7856.  swap d1
  7857.  
  7858. .pixlopleft:
  7859.  
  7860.  swap d1
  7861.  move.w d1,(a4)+
  7862.  swap d1
  7863.  add.l d2,d1
  7864.  
  7865.  sub.w a5,d4
  7866.  bge.s .nobigstepl
  7867.  sub.w a6,d0
  7868.  add.w d3,d4
  7869.  move.w d0,(a3)+
  7870.  dbra d5,.pixlopleft
  7871.  bra lineflatGOUR
  7872.  
  7873. .nobigstepl
  7874.  sub.w d6,d0
  7875.  move.w d0,(a3)+
  7876.  dbra d5,.pixlopleft
  7877.  bra lineflatGOUR
  7878.  
  7879. lineonrightGOUR:
  7880.  
  7881.  lea (a3,d1*2),a3
  7882.  
  7883.  lea rightbrighttab-rightsidetab(a3),a4
  7884.  
  7885.  cmp.w top(pc),d1
  7886.  bge.s .nonewtop
  7887.  move.w d1,top
  7888. .nonewtop:
  7889.  cmp.w bottom(pc),d3
  7890.  ble.s .nonewbot
  7891.  move.w d3,bottom
  7892. .nonewbot:
  7893.  
  7894.  sub.w d1,d3    ; dy
  7895.  sub.w d0,d2    ; dx
  7896.  blt .linegoingleft
  7897. ; addq #1,d0
  7898.  ext.l d2
  7899.  divs d3,d2
  7900.  move.w d2,d6
  7901.  swap d2
  7902.  
  7903. ; moveq #0,d6
  7904. ; sub.w d3,d2
  7905. ; blt.s .noco
  7906. ;.makeco
  7907. ; addq #1,d6
  7908. ; sub.w d3,d2
  7909. ; bge.s .makeco
  7910. ;.noco
  7911. ; add.w d3,d2
  7912.  
  7913.  move.w d3,d4
  7914.  move.w d3,d5
  7915.  subq #1,d5
  7916.  move.w d6,d1
  7917.  addq #1,d1
  7918.  
  7919.  move.w d1,a6
  7920.  move.w d2,a5
  7921.  
  7922.  moveq #0,d1
  7923.  move.w fbr,d1
  7924.  move.w sbr,d2
  7925.  sub.w d1,d2
  7926.  ext.l d2
  7927.  asl.w #8,d2
  7928.  asl.w #2,d2
  7929.  divs d3,d2 
  7930.  ext.l d2
  7931.  asl.l #6,d2
  7932.  swap d1
  7933.  
  7934. .pixlopright:
  7935.  
  7936.  swap d1
  7937.  move.w d1,(a4)+
  7938.  swap d1
  7939.  add.l d2,d1
  7940.  
  7941.  sub.w a5,d4
  7942.  bge.s .nobigstep
  7943.  add.w a6,d0
  7944.  add.w d3,d4
  7945.  move.w d0,(a3)+
  7946.  dbra d5,.pixlopright
  7947.  bra lineflatGOUR
  7948.  
  7949. .nobigstep
  7950.  add.w d6,d0
  7951.  move.w d0,(a3)+
  7952.  dbra d5,.pixlopright
  7953.  bra lineflatGOUR
  7954.  
  7955. .linegoingleft:
  7956. ; addq #1,d0
  7957.  neg.w d2
  7958.  
  7959.  ext.l d2
  7960.  divs d3,d2
  7961.  move.w d2,d6
  7962.  swap d2
  7963.  
  7964.  
  7965. ; moveq #0,d6
  7966. ; sub.w d3,d2
  7967. ; blt.s .nocol
  7968. ;.makecol
  7969. ; addq #1,d6
  7970. ; sub.w d3,d2
  7971. ; bge.s .makecol
  7972. ;.nocol
  7973. ; add.w d3,d2
  7974.  
  7975.  move.w d3,d4
  7976.  move.w d3,d5
  7977.  subq #1,d5
  7978.  move.w d6,d1
  7979.  addq #1,d1
  7980.  move.w d1,a6
  7981.  move.w d2,a5
  7982.  
  7983.  moveq #0,d1
  7984.  move.w fbr,d1
  7985.  move.w sbr,d2
  7986.  sub.w d1,d2
  7987.  ext.l d2
  7988.  asl.w #8,d2
  7989.  asl.w #2,d2
  7990.  divs d3,d2 
  7991.  ext.l d2
  7992.  asl.l #6,d2
  7993.  swap d1
  7994.  
  7995. .pixlopleft:
  7996.  
  7997.  swap d1
  7998.  move.w d1,(a4)+
  7999.  swap d1
  8000.  add.l d2,d1
  8001.  
  8002.  move.w d0,(a3)+
  8003.  sub.w a5,d4
  8004.  bge.s .nobigstepl
  8005.  sub.w a6,d0
  8006.  add.w d3,d4
  8007.  dbra d5,.pixlopleft
  8008.  bra lineflatGOUR
  8009.  
  8010. .nobigstepl
  8011.  sub.w d6,d0
  8012.  dbra d5,.pixlopleft
  8013.  
  8014. lineflatGOUR:
  8015.  
  8016. bothbehindGOUR:
  8017.  dbra d7,sideloopGOUR
  8018.  
  8019. pastsides:
  8020.  
  8021.  addq #2,a0
  8022.  
  8023.  move.w #320,linedir
  8024.  
  8025. ; move.l FASTBUFFER2,a6
  8026. ; add.l BIGMIDDLEY,a6
  8027. ; move.l a6,REFPTR
  8028.  
  8029.  move.l FASTBUFFER,a6
  8030.  add.l BIGMIDDLEY,a6
  8031.  move.w (a0)+,d6
  8032.  add.w SMALLIT,d6
  8033.  move.w d6,scaleval
  8034.  move.w (a0)+,d6
  8035.  
  8036.  ifne CHEESEY
  8037.  move.w d6,d7    ; 000000XX000000YY
  8038.  lsr.w #6,d6
  8039.  add.w d6,d7    ; 000000XX0000XXYY
  8040.  
  8041.  and.b #%111,d6    ; 000000XX00000XYY
  8042.  add.b d7,d7    ; 000000XX0000XYY0
  8043.  asl.w #4,d7    ; 00XX0000 XYY00000
  8044.  and.w #%0010000011100000,d7
  8045.  move.w d7,d6
  8046.  endc
  8047.  
  8048.  move.w d6,whichtile
  8049.  move.w (a0)+,d6
  8050.  add.w ZoneBright,d6
  8051.  move.w d6,lighttype
  8052.  move.w above(pc),d6
  8053.  beq groundfloor
  8054. * on ceiling:
  8055.  move.w #-320,linedir
  8056.  suba.w #320,a6
  8057. groundfloor:
  8058.  
  8059.  move.w xoff,d6
  8060.  move.w zoff,d7
  8061.  add.w xwobxoff,d7
  8062.  add.w xwobzoff,d6
  8063.  ext.l d6
  8064.  ext.l d7
  8065.  
  8066.  tst.b FULLSCR
  8067.  beq.s .shiftit
  8068.  
  8069.  asl.l #2,d6
  8070.  asl.l #2,d7
  8071.  divs #3,d6
  8072.  divs #3,d7
  8073.  swap d6
  8074.  swap d7
  8075.  clr.w d6
  8076.  clr.w d7
  8077.  asr.l #2,d6
  8078.  asr.l #2,d7
  8079.  bra.s .donsht
  8080.  
  8081. .shiftit
  8082.  
  8083. ; divs #3,d6
  8084. ; divs #3,d7
  8085.  swap d6
  8086.  swap d7
  8087.  clr.w d6
  8088.  clr.w d7
  8089.  asr.l #1,d6
  8090.  asr.l #1,d7
  8091. .donsht:
  8092.  move.w scaleval(pc),d3
  8093.  beq.s .samescale
  8094.  bgt.s .scaledown
  8095.  neg.w d3
  8096.  asr.l d3,d7
  8097.  asr.l d3,d6
  8098.  bra.s .samescale
  8099. .scaledown:
  8100.  asl.l d3,d6
  8101.  asl.l d3,d7
  8102. .samescale
  8103.  
  8104.  ifne CHEESEY
  8105.  asr.l #1,d6
  8106.  asr.l #1,d7
  8107.  endc
  8108.  
  8109.  move.l d6,sxoff
  8110.  move.l d7,szoff
  8111.  bra pastscale 
  8112.  
  8113.  asr.l #3,d1
  8114.  asr.l #3,d2
  8115.  asr.l #2,d1
  8116.  asr.l #2,d2
  8117.  asr.l #1,d1
  8118.  asr.l #1,d2
  8119. scaleprogfrom
  8120.  nop
  8121.  nop
  8122.  asl.l #1,d1
  8123.  asl.l #1,d2
  8124.  asl.l #2,d1
  8125.  asl.l #2,d2
  8126.  asl.l #3,d1
  8127.  asl.l #3,d2
  8128.  
  8129. top: dc.w 0
  8130. bottom: dc.w 0
  8131. ypos: dc.l 0
  8132. nfloors: dc.w 0
  8133. lighttype: dc.w 0
  8134. above: dc.w 0 
  8135. linedir: dc.w 0
  8136. distaddr: dc.w 0
  8137.  
  8138. minz: dc.l 0
  8139.  
  8140. leftsidetab:
  8141.  ds.w 512*2
  8142. rightsidetab:
  8143.  ds.w 512*2
  8144. leftbrighttab:
  8145.  ds.w 512*2
  8146. rightbrighttab:
  8147.  ds.w 512*2
  8148.  
  8149. PointBrights:
  8150.  dc.l 0
  8151. CurrentPointBrights:
  8152.  ds.l 2*256*10
  8153.  
  8154. movespd: dc.w 0
  8155. largespd: dc.l 0
  8156. disttobot: dc.w 0
  8157.  
  8158. pastscale:
  8159.  
  8160.  
  8161.  tst.b drawit(pc)
  8162.  beq dontdrawfloor
  8163.  
  8164.  tst.b DOUBLEHEIGHT
  8165.  beq pix1h
  8166.  
  8167.  move.l a0,-(a7)
  8168.  move.w linedir,d1
  8169.  add.w d1,linedir
  8170.  
  8171.  move.l #leftsidetab,a4
  8172.  move.w top(pc),d1
  8173.  tst.w above
  8174.  beq.s .clipfloor
  8175.  
  8176.  sub.w #320,a6
  8177.  
  8178.  move.w MIDDLEY,d7
  8179.  subq #1,d7
  8180.  sub.w d1,d7
  8181.  move.w d7,disttobot
  8182.  
  8183.  move.w bottom(pc),d7
  8184.  move.w MIDDLEY,d3
  8185.  move.w d3,d4
  8186.  sub.w topclip,d3
  8187.  sub.w botclip,d4
  8188.  cmp.w d3,d1
  8189.  bge predontdrawfloor
  8190.  cmp.w d4,d7
  8191.  blt predontdrawfloor
  8192.  cmp.w d4,d1
  8193.  bge.s .nocliptoproof
  8194.  move.w d4,d1
  8195. .nocliptoproof
  8196.  cmp.w d3,d7
  8197.  blt .doneclip
  8198.  move.w d3,d7
  8199.  bra .doneclip
  8200.  
  8201. .clipfloor:
  8202.  move.w BOTTOMY,d7
  8203.  sub.w MIDDLEY,d7
  8204.  subq #1,d7
  8205.  sub.w d1,d7
  8206.  move.w d7,disttobot
  8207.  
  8208.  move.w bottom(pc),d7
  8209.  move.w botclip,d4
  8210.  sub.w MIDDLEY,d4
  8211.  cmp.w d4,d1
  8212.  bge predontdrawfloor
  8213.  move.w topclip,d3
  8214.  sub.w MIDDLEY,d3
  8215.  cmp.w d3,d1
  8216.  bge.s .nocliptopfloor
  8217.  move.w d3,d1
  8218. .nocliptopfloor 
  8219.  cmp.w d3,d7
  8220.  ble predontdrawfloor
  8221.  cmp.w d4,d7
  8222.  blt.s .noclipbotfloor
  8223.  move.w d4,d7
  8224. .noclipbotfloor:
  8225.  
  8226. .doneclip:
  8227.  
  8228.  lea (a4,d1*2),a4
  8229.  addq #1,d7
  8230.  sub.w d1,d7
  8231.  
  8232. ;moveq #0,d0
  8233.  asr.w #1,d1
  8234. ; addx d0,d1
  8235.  
  8236. ; move.l #dists,a2
  8237.  move.w distaddr,d0
  8238.  muls #64,d0
  8239.  move.l d0,a2
  8240. ; muls #25,d0
  8241. ; adda.w d0,a2
  8242. ; lea (a2,d1*2),a2
  8243.  asr.w #1,d7
  8244.  ble predontdrawfloor 
  8245.  move.w d1,d0
  8246.  bne.s .notzero
  8247.  moveq #1,d0
  8248. .notzero
  8249.  add.w d0,d0
  8250.  muls linedir,d1
  8251.  add.l d1,a6
  8252. ; sub.l d1,REFPTR
  8253.  move.l TexturePal,a1
  8254.  move.l LineToUse,a5
  8255.  
  8256.  move.w #4,tonextline
  8257.  
  8258.  bra pix2h
  8259.  
  8260. pix1h:
  8261.  
  8262.  move.l a0,-(a7)
  8263.  
  8264.  move.l #leftsidetab,a4
  8265.  move.w top(pc),d1
  8266.   
  8267.  tst.w above
  8268.  beq.s clipfloor
  8269.  
  8270.  move.w MIDDLEY,d7
  8271.  subq #1,d7
  8272.  sub.w d1,d7
  8273.  move.w d7,disttobot
  8274.  
  8275.  move.w bottom(pc),d7
  8276.  move.w MIDDLEY,d3
  8277.  move.w d3,d4
  8278.  sub.w topclip,d3
  8279.  sub.w botclip,d4
  8280.  cmp.w d3,d1
  8281.  bge predontdrawfloor
  8282.  cmp.w d4,d7
  8283.  blt predontdrawfloor
  8284.  cmp.w d4,d1
  8285.  bge.s .nocliptoproof
  8286.  move.w d4,d1
  8287. .nocliptoproof
  8288.  cmp.w d3,d7
  8289.  blt doneclip
  8290.  move.w d3,d7
  8291.  bra doneclip
  8292.  
  8293. clipfloor:
  8294.  move.w BOTTOMY,d7
  8295.  sub.w MIDDLEY,d7
  8296.  subq #1,d7
  8297.  sub.w d1,d7
  8298.  move.w d7,disttobot
  8299.  
  8300.  move.w bottom(pc),d7
  8301.  move.w botclip,d4
  8302.  sub.w MIDDLEY,d4
  8303.  cmp.w d4,d1
  8304.  bge predontdrawfloor
  8305.  move.w topclip,d3
  8306.  sub.w MIDDLEY,d3
  8307.  cmp.w d3,d1
  8308.  bge.s .nocliptopfloor
  8309.  move.w d3,d1
  8310. .nocliptopfloor 
  8311.  cmp.w d3,d7
  8312.  ble predontdrawfloor
  8313.  cmp.w d4,d7
  8314.  blt.s .noclipbotfloor
  8315.  move.w d4,d7
  8316. .noclipbotfloor:
  8317.  
  8318. doneclip:
  8319.  
  8320.  lea (a4,d1*2),a4
  8321. ; move.l #dists,a2
  8322.  move.w distaddr,d0
  8323.  muls #64,d0
  8324.  move.l d0,a2
  8325. ; muls #25,d0
  8326. ; adda.w d0,a2
  8327. ; lea (a2,d1*2),a2
  8328.  sub.w d1,d7
  8329.  ble predontdrawfloor 
  8330.  move.w d1,d0
  8331.  bne.s .notzero
  8332.  moveq #1,d0
  8333. .notzero
  8334.  muls linedir,d1
  8335.  add.l d1,a6
  8336. ; sub.l d1,REFPTR
  8337.  move.l TexturePal,a1
  8338.  move.l LineToUse,a5
  8339.  
  8340.  move.w #2,tonextline
  8341.  
  8342. pix2h:
  8343.  
  8344.  tst.b gourfloor
  8345.  bne dogourfloor
  8346.  
  8347.  tst.b anyclipping
  8348.  beq dofloornoclip
  8349.  
  8350. dofloor:
  8351. ; move.w (a2)+,d0
  8352.  move.w leftclip,d3
  8353.  move.w rightclip,d4
  8354.  move.w rightsidetab-leftsidetab(a4),d2
  8355.  
  8356.  addq #1,d2
  8357.  cmp.w d3,d2
  8358.  ble.s nodrawline
  8359.  cmp.w d4,d2
  8360.  ble.s noclipright
  8361.  move.w d4,d2
  8362. noclipright:
  8363.  move.w (a4),d1
  8364.  cmp.w d4,d1
  8365.  bge.s nodrawline
  8366.  cmp.w d3,d1
  8367.  bge.s noclipleft
  8368.  move.w d3,d1
  8369. noclipleft:
  8370.  cmp.w d1,d2
  8371.  ble.s nodrawline
  8372.  
  8373.  move.w d1,leftedge
  8374.  move.w d2,rightedge
  8375.  
  8376. ; moveq #0,d1
  8377. ; moveq #0,d3
  8378. ; move.w leftbrighttab-leftsidetab(a4),d1
  8379. ; bge.s .okbl
  8380. ; moveq #0,d1
  8381. ;.okbl:
  8382.  
  8383. ; move.w rightbrighttab-leftsidetab(a4),d3
  8384. ; bge.s .okbr
  8385. ; moveq #0,d3
  8386. ;.okbr:
  8387.  
  8388. ; sub.w d1,d3
  8389. ; asl.w #8,d1
  8390. ; move.l d1,leftbright
  8391. ; swap d3
  8392. ; asr.l #5,d3
  8393. ; divs d5,d3
  8394. ; move.w d3,d5
  8395. ; muls.w d6,d5
  8396. ; asr.l #3,d5
  8397. ; clr.b d5
  8398. ; add.w d5,leftbright+2
  8399.  
  8400. ; ext.l d3
  8401. ; asl.l #5,d3
  8402. ; swap d3
  8403. ; asl.w #8,d3
  8404. ; move.l d3,brightspd
  8405.  
  8406.  move.l a6,a3
  8407.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  8408.  move.l a2,d7
  8409.  asl.l #2,d7
  8410.  ext.l d0
  8411.  divs.l d0,d7
  8412.  move.l d7,d0
  8413.  jsr (a5)
  8414.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  8415. nodrawline
  8416.  sub.w #1,disttobot
  8417.  move.w linedir(pc),d3
  8418.  adda.w d3,a6
  8419. ; ext.l d3
  8420. ; sub.l d3,REFPTR
  8421.  move.w tonextline,d3
  8422.  add.w d3,a4
  8423.  asr.w #1,d3
  8424.  add.w d3,d0
  8425.  subq #1,d7
  8426.  bgt dofloor
  8427.  
  8428. predontdrawfloor
  8429.  move.l (a7)+,a0
  8430.  
  8431. dontdrawfloor:
  8432.  
  8433.  rts
  8434.  
  8435. tonextline: dc.w 0
  8436. anyclipping: dc.w 0
  8437.  
  8438. dofloornoclip:
  8439. ; move.w (a2)+,d0
  8440.  move.w rightsidetab-leftsidetab(a4),d2
  8441.  addq #1,d2
  8442.  move.w (a4),d1
  8443.  move.w d1,leftedge
  8444.  move.w d2,rightedge
  8445.  
  8446. ; sub.w d1,d2
  8447.  
  8448. ; moveq #0,d1
  8449. ; moveq #0,d3
  8450. ; move.w leftbrighttab-leftsidetab(a4),d1
  8451. ; bge.s .okbl
  8452. ; moveq #0,d1
  8453. ;.okbl:
  8454.  
  8455. ; move.w rightbrighttab-leftsidetab(a4),d3
  8456. ; bge.s .okbr
  8457. ; moveq #0,d3
  8458. ;.okbr:
  8459.  
  8460. ; sub.w d1,d3
  8461. ; asl.w #8,d1
  8462. ; move.l d1,leftbright
  8463. ; swap d3
  8464. ; asr.l #5,d3
  8465. ; divs d2,d3
  8466. ; ext.l d3
  8467. ; asl.l #5,d3
  8468. ; swap d3
  8469. ; asl.w #8,d3
  8470. ; move.l d3,brightspd
  8471.  
  8472.  move.l a6,a3
  8473.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  8474.  move.l a2,d7
  8475.  asl.l #2,d7
  8476.  ext.l d0
  8477.  divs.l d0,d7
  8478.  move.l d7,d0
  8479.  jsr (a5)
  8480.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  8481.  sub.w #1,disttobot
  8482.  move.w linedir(pc),d3
  8483.  adda.w d3,a6
  8484. ; ext.l d3
  8485. ; sub.l d3,REFPTR
  8486.  move.w tonextline,d3
  8487.  add.w d3,a4
  8488.  asr.w #1,d3
  8489.  add.w d3,d0
  8490.  subq #1,d7
  8491.  bgt dofloornoclip
  8492.  
  8493.  bra predontdrawfloor
  8494.  
  8495. dogourfloor:
  8496.  tst.b anyclipping
  8497.  beq dofloornoclipGOUR
  8498.  
  8499. dofloorGOUR:
  8500. ; move.w (a2)+,d0
  8501.  move.w leftclip,d3
  8502.  move.w rightclip,d4
  8503.  move.w rightsidetab-leftsidetab(a4),d2
  8504.  
  8505.  move.w d2,d5
  8506.  sub.w (a4),d5
  8507.  addq #1,d5
  8508.  moveq #0,d6
  8509.  
  8510.  addq #1,d2
  8511.  cmp.w d3,d2
  8512.  ble nodrawlineGOUR
  8513.  cmp.w d4,d2
  8514.  ble.s nocliprightGOUR
  8515.  move.w d4,d2
  8516. nocliprightGOUR:
  8517.  move.w (a4),d1
  8518.  cmp.w d4,d1
  8519.  bge nodrawlineGOUR
  8520.  cmp.w d3,d1
  8521.  bge.s noclipleftGOUR
  8522.  move.w d3,d6
  8523.  subq #1,d6
  8524.  sub.w d1,d6
  8525.  move.w d3,d1
  8526. noclipleftGOUR:
  8527.  cmp.w d1,d2
  8528.  ble nodrawlineGOUR
  8529.  
  8530.  move.w d1,leftedge
  8531.  move.w d2,rightedge
  8532.  
  8533.  move.l a2,d2
  8534.  asl.l #2,d2
  8535.  ext.l d0
  8536.  divs.l d0,d2
  8537.  move.l d2,dst
  8538.  asr.l #7,d2
  8539.  asr.l #2,d2
  8540. ; addq #5,d2
  8541. ; add.w lighttype,d2
  8542.  
  8543.  moveq #0,d1
  8544.  moveq #0,d3
  8545.  move.w leftbrighttab-leftsidetab(a4),d1
  8546.  add.w d2,d1
  8547.  bge.s .okbl
  8548.  moveq #0,d1
  8549. .okbl:
  8550. ; asr.w #1,d1
  8551.  cmp.w #30,d1
  8552.  ble.s .okdl
  8553.  move.w #30,d1
  8554. .okdl:
  8555.  
  8556.  move.w rightbrighttab-leftsidetab(a4),d3
  8557.  add.w d2,d3
  8558.  bge.s .okbr
  8559.  moveq #0,d3
  8560. .okbr:
  8561. ; asr.w #1,d3
  8562.  cmp.w #30,d3
  8563.  ble.s .okdr
  8564.  move.w #30,d3
  8565. .okdr:
  8566.  
  8567.  sub.w d1,d3
  8568.  asl.w #8,d1
  8569.  move.w d1,leftbright
  8570.  swap d3
  8571.  tst.l d3
  8572.  bgt.s .OKITSPOSALREADY 
  8573.  neg.l d3
  8574.  asr.l #6,d3
  8575.  divs d5,d3
  8576.  neg.w d3
  8577.  bra.s .OKNOWITSNEG
  8578.  
  8579. .OKITSPOSALREADY
  8580.  asr.l #6,d3
  8581.  divs d5,d3
  8582. .OKNOWITSNEG
  8583.  muls d3,d6
  8584.  add.w #256*4,d6
  8585.  asr.w #2,d6
  8586.  clr.b d6
  8587.  add.w leftbright,d6
  8588.  bge.s .oklbnn
  8589.  moveq #0,d6
  8590. .oklbnn:
  8591.  move.w d6,leftbright
  8592.  
  8593.  ext.l d3
  8594.  asr.l #2,d3
  8595. ; swap d3
  8596. ; asl.w #8,d3
  8597.  move.w d3,brightspd
  8598.  
  8599.  move.l a6,a3
  8600.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  8601.  move.l dst,d0
  8602.  move.l TexturePal,a1
  8603.  move.l floortile,a0
  8604.  adda.w whichtile,a0
  8605.  jsr pastfloorbright
  8606.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  8607. nodrawlineGOUR
  8608.  
  8609.  sub.w #1,disttobot
  8610.  
  8611.  move.w linedir(pc),d3
  8612.  adda.w d3,a6
  8613. ; ext.l d3
  8614. ; sub.l d3,REFPTR
  8615.  move.w tonextline,d3
  8616.  add.w d3,a4
  8617.  asr.w #1,d3
  8618.  add.w d3,d0
  8619.  subq #1,d7
  8620.  bgt dofloorGOUR
  8621.  
  8622. predontdrawfloorGOUR
  8623.  move.l (a7)+,a0
  8624.  
  8625. dontdrawfloorGOUR:
  8626.  
  8627.  rts
  8628.  
  8629. REFPTR: dc.l 0
  8630.  
  8631. dofloornoclipGOUR:
  8632. ; move.w (a2)+,d0
  8633.  move.w rightsidetab-leftsidetab(a4),d2
  8634.  addq #1,d2
  8635.  move.w (a4),d1
  8636.  move.w d1,leftedge
  8637.  move.w d2,rightedge
  8638.  
  8639.  sub.w d1,d2
  8640.  
  8641.  move.l a2,d6
  8642.  asl.l #2,d6
  8643.  ext.l d0
  8644.  divs.l d0,d6
  8645.  move.l d6,d5
  8646.  asr.l #7,d5
  8647.  asr.l #2,d5
  8648. ; addq #5,d5
  8649. ; add.w lighttype,d5
  8650.  
  8651.  moveq #0,d1
  8652.  moveq #0,d3
  8653.  move.w leftbrighttab-leftsidetab(a4),d1
  8654.  add.w d5,d1
  8655.  bge.s .okbl
  8656.  moveq #0,d1
  8657. .okbl:
  8658. ; asr.w #1,d1
  8659.  cmp.w #30,d1
  8660.  ble.s .okdl
  8661.  move.w #30,d1
  8662. .okdl:
  8663.  
  8664.  move.w rightbrighttab-leftsidetab(a4),d3
  8665.  add.w d5,d3
  8666.  bge.s .okbr
  8667.  moveq #0,d3
  8668. .okbr:
  8669. ; asr.w #1,d3
  8670.  cmp.w #30,d3
  8671.  ble.s .okdr
  8672.  move.w #30,d3
  8673. .okdr:
  8674.  
  8675. ; sub.w d1,d3
  8676. ; asl.w #8,d1
  8677. ; move.l d1,leftbright
  8678. ; swap d3
  8679. ; asr.l #5,d3
  8680. ; divs d2,d3
  8681. ; ext.l d3
  8682. ; asl.l #5,d3
  8683. ; swap d3
  8684. ; asl.w #8,d3
  8685. ; move.l d3,brightspd
  8686.  
  8687.  sub.w d1,d3
  8688.  asl.w #8,d1
  8689.  move.w d1,leftbright
  8690.  swap d3
  8691.  ext.l d2
  8692.  divs.l d2,d3
  8693.  asr.l #8,d3
  8694.  move.w d3,brightspd
  8695.  
  8696.  move.l a6,a3
  8697.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  8698.  move.l d6,d0
  8699.  move.l d0,dst
  8700.  move.l TexturePal,a1
  8701.  move.l floortile,a0
  8702.  adda.w whichtile,a0
  8703.  jsr pastfloorbright
  8704.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  8705.  sub.w #1,disttobot
  8706.  
  8707.  move.w linedir(pc),d3
  8708.  adda.w d3,a6
  8709. ; ext.l d3
  8710. ; sub.l d3,REFPTR
  8711.  
  8712.  move.w tonextline,d3
  8713.  add.w d3,a4
  8714.  asr.w #1,d3
  8715.  add.w d3,d0
  8716.  subq #1,d7
  8717.  bgt dofloornoclipGOUR
  8718.  
  8719.  bra predontdrawfloorGOUR
  8720.  
  8721.  
  8722.  
  8723. dists:
  8724. ; incbin "floordists"
  8725. drawit: dc.w 0
  8726.  
  8727. LineToUse: dc.l 0
  8728.  
  8729. ***************************
  8730. * Right then, time for the floor
  8731. * routine...
  8732. * For test purposes, give it
  8733. * a3 = point to screen
  8734. * d0= z distance away
  8735. * and sinval+cosval must be set up.
  8736. ***************************
  8737.  
  8738. BLACKFLOOR:
  8739.  moveq #0,d0
  8740.  bra.s DOBLACK
  8741.  
  8742. SimpleFloorLine:
  8743.  
  8744.  CACHE_OFF d2
  8745.  
  8746.  move.l #doacrossline,a1
  8747.  move.w leftedge(pc),d1
  8748.  move.w rightedge(pc),d3
  8749.  sub.w d1,d3
  8750.  lea (a1,d1.w*4),a1
  8751.  move.w (a1,d3.w*4),d4
  8752.  move.w #$4e75,(a1,d3.w*4)
  8753.  
  8754.  tst.b CLRNOFLOOR
  8755.  bne.s BLACKFLOOR
  8756.  
  8757.  move.l #PLAINSCALE,a2
  8758.  
  8759.  move.w d0,d2
  8760.  move.w lighttype,d1
  8761.  asr.w #8,d2
  8762.  add.w #5,d1
  8763.  add.w d2,d1
  8764.  bge.s .fixedbright
  8765.  moveq #0,d1
  8766. .fixedbright:
  8767.  cmp.w #28,d1
  8768.  ble.s .smallbright
  8769.  move.w #28,d1
  8770. .smallbright:
  8771.  lea (a2,d1.w*2),a2
  8772.  
  8773.  move.w whichtile,d0
  8774.  move.w d0,d1
  8775.  and.w #$3,d1
  8776.  and.w #$300,d0
  8777.  lsl.b #6,d1
  8778.  move.b d1,d0
  8779.  move.w d0,tstwhich
  8780.  move.w (a2,d0.w),d0
  8781.  
  8782. DOBLACK:
  8783.  jsr (a1)
  8784.  move.w d4,(a1,d3.w*4)
  8785.  
  8786.  CACHE_ON d2
  8787.  
  8788.  rts
  8789.  
  8790. tstwhich: dc.w 0
  8791. whichtile: dc.w 0
  8792.   
  8793. PLAINSCALE: 
  8794. ;incbin "ab3:includes/plainscale"
  8795.   
  8796. storeit: dc.l 0
  8797.  
  8798. doacrossline:
  8799. val SET 0
  8800.  REPT 32
  8801.  move.w d0,val(a3)
  8802. val SET val+4
  8803.  ENDR
  8804. val SET val+4
  8805.  REPT 32
  8806.  move.w d0,val(a3)
  8807. val SET val+4
  8808.  ENDR
  8809. val SET val+4
  8810.  REPT 32
  8811.  move.w d0,val(a3)
  8812. val SET val+4
  8813.  ENDR
  8814.  rts
  8815.  
  8816.  
  8817. leftedge: dc.w 0
  8818. rightedge: dc.w 0
  8819.  
  8820. rndpt: dc.l rndtab
  8821.  
  8822.  
  8823. dst: dc.l 0
  8824.  
  8825. FloorLine:
  8826.  
  8827.  move.l floortile,a0
  8828.  adda.w whichtile,a0
  8829.  move.w lighttype,d1
  8830.  move.l d0,dst    ; *4
  8831.  move.l d0,d2    ; *4
  8832. *********************
  8833. * Old version
  8834.  asr.l #2,d2
  8835.  asr.l #8,d2
  8836.  add.w #5,d1
  8837. *********************
  8838. ; asr.w #3,d2
  8839. ; sub.w #4,d2
  8840. ; cmp.w #6,d2
  8841. ; blt.s flbrbr
  8842. ; move.w #6,d2
  8843. ;flbrbr:
  8844. *********************
  8845.  add.w d2,d1
  8846.  bge.s .fixedbright
  8847.  moveq #0,d1
  8848. .fixedbright:
  8849.  cmp.w #28,d1
  8850.  ble.s .smallbright
  8851.  move.w #28,d1
  8852. .smallbright:
  8853.  move.l TexturePal,a1
  8854.  add.l floorbright(pc,d1.w*4),a1
  8855.  bra pastfloorbright
  8856.  
  8857. ConstCol: dc.w 0
  8858.  
  8859. BumpLine:
  8860.  
  8861.  tst.b smoothbumps
  8862.  beq.s Chunky
  8863.  
  8864.  move.l #SmoothTile,a0
  8865.  lea Smoothscalecols,a1
  8866.  bra pastast
  8867.  
  8868. Chunky:
  8869.  
  8870.  moveq #0,d2
  8871.  move.l #Bumptile,a0
  8872.  move.w whichtile,d2
  8873.  adda.w d2,a0
  8874.  ror.l #2,d2
  8875.  lsr.w #6,d2
  8876.  rol.l #2,d2
  8877.  and.w #15,d2
  8878.  move.l #ConstCols,a1
  8879.  move.w (a1,d2.w*2),ConstCol
  8880.  lea Bumpscalecols,a1
  8881.  
  8882. pastast:
  8883.  move.w lighttype,d1
  8884.  
  8885.  move.l d0,dst
  8886.  
  8887.  move.l d0,d2
  8888. *********************
  8889. * Old version
  8890.  asr.l #2,d2
  8891.  asr.l #8,d2
  8892.  add.w #5,d1
  8893. *********************
  8894. ; asr.w #3,d2
  8895. ; sub.w #4,d2
  8896. ; cmp.w #6,d2
  8897. ; blt.s flbrbr
  8898. ; move.w #6,d2
  8899. ;flbrbr:
  8900. *********************
  8901.  add.w d2,d1
  8902.  bge.s .fixedbright
  8903.  moveq #0,d1
  8904. .fixedbright:
  8905.  cmp.w #31,d1
  8906.  ble.s .smallbright
  8907.  move.w #31,d1
  8908. .smallbright:
  8909.  add.l floorbright(pc,d1.w*4),a1
  8910.  bra pastfloorbright
  8911.  
  8912.  
  8913. floorbright:
  8914.  dc.l 512*0
  8915.  dc.l 512*1
  8916.  dc.l 512*2
  8917.  dc.l 512*3
  8918.  dc.l 512*4
  8919.  
  8920.  dc.l 512*5
  8921.  dc.l 512*6
  8922.  dc.l 512*7
  8923.  dc.l 512*8
  8924.  dc.l 512*9
  8925.  
  8926.  dc.l 512*10
  8927.  dc.l 512*11
  8928.  dc.l 512*12
  8929.  dc.l 512*13
  8930.  dc.l 512*14
  8931.  
  8932.  dc.l 512*15
  8933.  dc.l 512*16
  8934.  dc.l 512*17
  8935.  dc.l 512*18
  8936.  dc.l 512*19
  8937.  
  8938.  dc.l 512*20
  8939.  dc.l 512*21
  8940.  dc.l 512*22
  8941.  dc.l 512*23
  8942.  dc.l 512*24
  8943.  
  8944.  dc.l 512*25
  8945.  dc.l 512*26
  8946.  dc.l 512*27
  8947.  dc.l 512*28
  8948.  dc.l 512*29
  8949.  
  8950.  dc.l 512*30
  8951.  dc.l 512*31
  8952.  
  8953. widthleft: dc.w 0
  8954. scaleval: dc.w 0
  8955. sxoff: dc.l 0
  8956. szoff: dc.l 0
  8957. xoff34: dc.w 0
  8958. zoff34: dc.w 0
  8959. scosval: dc.w 0
  8960. ssinval: dc.w 0
  8961.  
  8962.  
  8963. floorsetbright:
  8964.  move.l #walltiles,a0
  8965.  
  8966. pastfloorbright:
  8967.  
  8968.  move.l d0,d1
  8969.  muls cosval,d1    ; change in x across whole width
  8970.  move.l d0,d2
  8971.  muls sinval,d2    ; change in z across whole width
  8972.  neg.l d2
  8973.  ifne CHEESEY
  8974.  asr.l #3,d2
  8975.  asr.l #3,d1
  8976.  endc
  8977.  ifeq CHEESEY
  8978.  asr.l #2,d2
  8979.  asr.l #2,d1
  8980.  endc
  8981. scaleprog:
  8982.  move.w scaleval(pc),d3
  8983.  beq.s .samescale
  8984.  bgt.s .scaledown
  8985.  neg.w d3
  8986.  asr.l d3,d1
  8987.  asr.l d3,d2
  8988.  bra.s .samescale
  8989. .scaledown:
  8990.  asl.l d3,d1
  8991.  asl.l d3,d2
  8992. .samescale
  8993.  
  8994.  
  8995.  move.l d1,d3 ;    z cos
  8996.  move.l d3,d6
  8997.  move.l d3,d5
  8998.  asr.l #1,d6
  8999.  add.l d6,d3
  9000.  asr.l #1,d3
  9001.  
  9002.  move.l d2,d4    ; z sin
  9003.  move.l d4,d6
  9004.  asr.l #1,d6
  9005.  add.l d4,d6
  9006.  add.l d3,d4
  9007.  neg.l d4    ; start x
  9008.  
  9009.  asr.l #1,d6    ; zsin/2
  9010.  sub.l d6,d5    ; start z
  9011.  
  9012.  add.l sxoff,d4
  9013.  add.l szoff,d5
  9014.  
  9015.  tst.b FULLSCR
  9016.  beq.s .nob
  9017.  
  9018.  moveq #0,d6
  9019.  move.w leftedge(pc),d6
  9020.  beq.s .nomultleftB
  9021.  
  9022.  add.l d6,d6
  9023.  divs #3,d6
  9024.  ext.l d6
  9025.  
  9026.  move.l d1,a4
  9027.  move.l d2,a5
  9028.  
  9029.  muls.l d6,d1
  9030.  asr.l #7,d1
  9031.  add.l d1,d4
  9032.  
  9033.  muls.l d6,d2
  9034.  asr.l #7,d2
  9035.  add.l d2,d5
  9036.  move.l a4,d1
  9037.  move.l a5,d2
  9038.  
  9039.  move.w leftedge(pc),d6
  9040.  
  9041. .nomultleftB:
  9042.  
  9043.  move.w d4,startsmoothx
  9044.  move.w d5,startsmoothz
  9045.  
  9046.  asr.l #8,d4
  9047.  asl.l #8,d5
  9048. ; add.w szoff,d5
  9049. ; add.w sxoff,d4
  9050. ; and.w #63,d4
  9051. ; and.w #63*256,d5
  9052.  
  9053.  move.w d4,d5
  9054.  
  9055.  asr.l #6,d1
  9056.  asr.l #6,d2
  9057.  divs.l #3,d1
  9058.  divs.l #3,d2
  9059.  
  9060.  bra.s doneallmult
  9061.  
  9062. .nob 
  9063.  
  9064.  moveq #0,d6
  9065.  move.w leftedge(pc),d6
  9066.  beq.s nomultleft
  9067.  
  9068.  move.l d1,a4
  9069.  move.l d2,a5
  9070.  
  9071.  muls.l d6,d1
  9072.  asr.l #7,d1
  9073.  add.l d1,d4
  9074.  
  9075.  muls.l d6,d2
  9076.  asr.l #7,d2
  9077.  add.l d2,d5
  9078.  move.l a4,d1
  9079.  move.l a5,d2
  9080.  
  9081.  move.w leftedge(pc),d6
  9082.  
  9083. nomultleft:
  9084.  
  9085.  move.w d4,startsmoothx
  9086.  move.w d5,startsmoothz
  9087.  
  9088.  asr.l #8,d4
  9089.  asl.l #8,d5
  9090.  
  9091.  
  9092. ; add.w szoff,d5
  9093. ; add.w sxoff,d4
  9094. ; and.w #63,d4
  9095. ; and.w #63*256,d5
  9096.  
  9097.  move.w d4,d5
  9098.  
  9099.  asr.l #7,d1
  9100.  asr.l #7,d2
  9101. ; divs.l #3,d1
  9102. ; divs.l #3,d2
  9103.  
  9104. doneallmult:
  9105.  
  9106.  move.w d1,a4
  9107.  move.w d2,a5
  9108.  asl.l #8,d2
  9109. ; and.w #%0011111100000000,d2
  9110.  asr.l #8,d1
  9111.  move.w d1,d2
  9112.  ifeq CHEESEY
  9113.  move.l #$3fff3fff,d1
  9114.  endc
  9115.  ifne CHEESEY
  9116.  move.l #$1fff1fff,d1
  9117.  endc
  9118.  and.l d1,d5
  9119. ; swap d5
  9120. ; move.w startsmoothz,d5
  9121. ; swap d5
  9122. ; swap d2
  9123. ; move.w a5,d2
  9124. ; swap d2
  9125.  
  9126. ***********************************
  9127.  
  9128.  
  9129.  tst.b DOUBLEWIDTH
  9130.  beq.s .nodoub
  9131.  
  9132.  and.b #$fe,d6
  9133.  
  9134.  move.w d6,a2
  9135.  moveq #0,d0 
  9136.  move.w rightedge(pc),d3 
  9137.  lea (a3,a2.w),a3 
  9138.  move.w d3,d7
  9139.  sub.w a2,d7
  9140.  asr.w #1,d7
  9141.  move.w startsmoothx,d3
  9142.  
  9143.  tst.b usewater
  9144.  bne texturedwaterDOUB
  9145. ; tst.b gourfloor
  9146.  bra gouraudfloorDOUB
  9147.  
  9148. .nodoub:
  9149.  
  9150.  move.w d6,a2
  9151.  moveq #0,d0 
  9152.  move.w rightedge(pc),d3 
  9153.  lea (a3,a2.w),a3 
  9154.  move.w d3,d7
  9155.  sub.w a2,d7
  9156.  
  9157. intofirststrip:
  9158. allintofirst:
  9159.  
  9160.  move.w startsmoothx,d3
  9161.  
  9162. tstwat:
  9163.  
  9164.  tst.b usewater
  9165.  bne texturedwater
  9166. ; tst.b gourfloor
  9167.  bra gouraudfloor
  9168.  
  9169.  
  9170.  
  9171. ******************************
  9172. * BumpMap the floor/ceiling! *
  9173.  tst.b usebumps
  9174.  bne.s BumpMap
  9175. ******************************
  9176.  
  9177. ordinary:
  9178.  moveq #0,d0
  9179.  
  9180.  dbra d7,acrossscrn
  9181.  rts
  9182.  
  9183. usebumps: dc.w $0
  9184. smoothbumps: dc.w $0
  9185. gourfloor: dc.w 0
  9186.  
  9187.  include "ab3:source_4000/bumpmap.s"
  9188.  
  9189.  CNOP 0,4
  9190. backbefore:
  9191.  and.w d1,d5
  9192.  move.b (a0,d5.w*4),d0
  9193.  add.w a4,d3
  9194.  addx.l d6,d5
  9195.  move.w (a1,d0.w*2),(a3)
  9196.  addq #4,a3
  9197.  dbcs d7,acrossscrn
  9198.  dbcc d7,backbefore
  9199.  bra.s past1
  9200.  
  9201. acrossscrn:
  9202.  and.w d1,d5
  9203.  move.b (a0,d5.w*4),d0
  9204.  add.w a4,d3
  9205.  addx.l d2,d5
  9206.  move.w (a1,d0.w*2),(a3)
  9207.  addq #4,a3
  9208.  dbcs d7,acrossscrn
  9209.  dbcc d7,backbefore
  9210. past1:
  9211.  bcc.s gotoacross
  9212.  
  9213.  move.w d4,d7
  9214.  bne.s .notdoneyet
  9215.  rts
  9216. .notdoneyet:
  9217.  
  9218.  cmp.w #32,d7
  9219.  ble.s .notoowide
  9220.  move.w #32,d7
  9221. .notoowide
  9222.  sub.w d7,d4  
  9223.  addq #4,a3
  9224.  
  9225.  dbra d7,backbefore
  9226.  rts
  9227.  
  9228.  
  9229. gotoacross:
  9230.  
  9231.  move.w d4,d7
  9232.  bne.s .notdoneyet
  9233.  rts
  9234. .notdoneyet:
  9235.  
  9236.  cmp.w #32,d7
  9237.  ble.s .notoowide
  9238.  move.w #32,d7
  9239. .notoowide
  9240.  sub.w d7,d4  
  9241.  addq #4,a3
  9242.  
  9243.  dbra d7,acrossscrn
  9244.  rts
  9245.  
  9246. leftbright: dc.l 0
  9247. brightspd: dc.l 0
  9248.  
  9249. gouraudfloor:
  9250.  
  9251.  move.w leftbright,d0
  9252.  move.l d1,d4
  9253.  move.w brightspd,d1
  9254.  
  9255.  move.w d7,d3
  9256.  asr.w #1,d7
  9257.  btst #0,d3
  9258.  beq.s .nosingle1
  9259.  move.w d5,d3
  9260.  move.l d5,d6
  9261.  lsr.w #8,d3
  9262.  swap d6
  9263.  move.b d3,d6
  9264.  move.w d0,d3
  9265.  ifeq CHEESEY
  9266.  move.b (a0,d6.w*4),d3
  9267.  endc
  9268.  ifne CHEESEY
  9269.  move.b (a0,d6.w),d3
  9270.  endc
  9271.  
  9272.  add.w d1,d0
  9273.  add.l d2,d5
  9274.  and.l d4,d5
  9275.  move.b (a1,d3.w),(a3)+
  9276. .nosingle1
  9277.  
  9278.  move.w d7,d3
  9279.  asr.w #1,d7
  9280.  btst #0,d3
  9281.  beq.s .nosingle2
  9282.  move.w d5,d3
  9283.  move.l d5,d6
  9284.  lsr.w #8,d3
  9285.  swap d6
  9286.  move.b d3,d6
  9287.  move.w d0,d3
  9288.  ifeq CHEESEY
  9289.  move.b (a0,d6.w*4),d3
  9290.  endc
  9291.  ifne CHEESEY
  9292.  move.b (a0,d6.w),d3
  9293.  endc
  9294.  add.w d1,d0
  9295.  add.l d2,d5
  9296.  and.l d4,d5
  9297.  move.l d5,d6
  9298.  swap d6
  9299.  move.b (a1,d3.w),(a3)+
  9300.  move.w d5,d3
  9301.  lsr.w #8,d3
  9302.  move.b d3,d6
  9303.  move.w d0,d3
  9304.  ifeq CHEESEY
  9305.  move.b (a0,d6.w*4),d3
  9306.  endc
  9307.  ifne CHEESEY
  9308.  move.b (a0,d6.w),d3
  9309.  endc
  9310.  add.w d1,d0
  9311.  add.l d2,d5
  9312.  and.l d4,d5
  9313.  move.b (a1,d3.w),(a3)+
  9314.  
  9315. .nosingle2
  9316.  
  9317.  move.l d5,d6
  9318.  swap d6
  9319.  
  9320.  dbra d7,acrossscrngour
  9321.  rts
  9322.  
  9323.  CNOP 0,4
  9324.  
  9325. acrossscrngour:
  9326.  move.w d5,d3
  9327.  lsr.w #8,d3
  9328.  move.b d3,d6
  9329.  move.w d0,d3
  9330.  ifeq CHEESEY
  9331.  move.b (a0,d6.w*4),d3
  9332.  endc
  9333.  ifne CHEESEY
  9334.  move.b (a0,d6.w),d3
  9335.  endc
  9336.  add.w d1,d0
  9337.  add.l d2,d5
  9338.  and.l d4,d5
  9339.  move.l d5,d6
  9340.  swap d6
  9341.  move.b (a1,d3.w),(a3)+
  9342.  move.w d5,d3
  9343.  lsr.w #8,d3
  9344.  move.b d3,d6
  9345.  move.w d0,d3
  9346.  ifeq CHEESEY
  9347.  move.b (a0,d6.w*4),d3
  9348.  endc
  9349.  ifne CHEESEY
  9350.  move.b (a0,d6.w),d3
  9351.  endc
  9352.  add.w d1,d0
  9353.  add.l d2,d5
  9354.  and.l d4,d5
  9355.  move.l d5,d6
  9356.  swap d6
  9357.  move.b (a1,d3.w),(a3)+
  9358.  move.w d5,d3
  9359.  lsr.w #8,d3
  9360.  move.b d3,d6
  9361.  move.w d0,d3
  9362.  ifeq CHEESEY
  9363.  move.b (a0,d6.w*4),d3
  9364.  endc
  9365.  ifne CHEESEY
  9366.  move.b (a0,d6.w),d3
  9367.  endc
  9368.  add.w d1,d0
  9369.  add.l d2,d5
  9370.  and.l d4,d5
  9371.  move.l d5,d6
  9372.  swap d6
  9373.  move.b (a1,d3.w),(a3)+
  9374.  move.w d5,d3
  9375.  lsr.w #8,d3
  9376.  move.b d3,d6
  9377.  move.w d0,d3
  9378.  ifeq CHEESEY
  9379.  move.b (a0,d6.w*4),d3
  9380.  endc
  9381.  ifne CHEESEY
  9382.  move.b (a0,d6.w),d3
  9383.  endc
  9384.  add.w d1,d0
  9385.  add.l d2,d5
  9386.  and.l d4,d5
  9387.  move.l d5,d6
  9388.  swap d6
  9389.  move.b (a1,d3.w),(a3)+
  9390.  dbra d7,acrossscrngour
  9391.  
  9392.  rts
  9393.  
  9394.  
  9395. gouraudfloorDOUB:
  9396.  
  9397.  move.w leftbright,d0
  9398.  move.l d1,d4
  9399.  move.w brightspd,d1
  9400.  add.w d1,d1
  9401.  add.l d2,d2
  9402.  
  9403.  move.w d7,d3
  9404.  asr.w #1,d7
  9405.  btst #0,d3
  9406.  beq.s .nosingle1
  9407.  move.w d5,d3
  9408.  move.l d5,d6
  9409.  lsr.w #8,d3
  9410.  swap d6
  9411.  move.b d3,d6
  9412.  move.w d0,d3
  9413.  ifeq CHEESEY
  9414.  move.b (a0,d6.w*4),d3
  9415.  endc
  9416.  ifne CHEESEY
  9417.  move.b (a0,d6.w),d3
  9418.  endc
  9419.  add.w d1,d0
  9420.  add.l d2,d5
  9421.  and.l d4,d5
  9422.  move.w (a1,d3.w),(a3)+
  9423. .nosingle1
  9424.  
  9425.  move.w d7,d3
  9426.  asr.w #1,d7
  9427.  btst #0,d3
  9428.  beq.s .nosingle2
  9429.  move.w d5,d3
  9430.  move.l d5,d6
  9431.  lsr.w #8,d3
  9432.  swap d6
  9433.  move.b d3,d6
  9434.  move.w d0,d3
  9435.  ifeq CHEESEY
  9436.  move.b (a0,d6.w*4),d3
  9437.  endc
  9438.  ifne CHEESEY
  9439.  move.b (a0,d6.w),d3
  9440.  endc
  9441.  add.w d1,d0
  9442.  add.l d2,d5
  9443.  and.l d4,d5
  9444.  move.l d5,d6
  9445.  swap d6
  9446.  move.w (a1,d3.w),(a3)+
  9447.  move.w d5,d3
  9448.  lsr.w #8,d3
  9449.  move.b d3,d6
  9450.  move.w d0,d3
  9451.  ifeq CHEESEY
  9452.  move.b (a0,d6.w*4),d3
  9453.  endc
  9454.  ifne CHEESEY
  9455.  move.b (a0,d6.w),d3
  9456.  endc
  9457.  add.w d1,d0
  9458.  add.l d2,d5
  9459.  and.l d4,d5
  9460.  move.w (a1,d3.w),(a3)+
  9461.  
  9462. .nosingle2
  9463.  
  9464.  move.l d5,d6
  9465.  swap d6
  9466.  
  9467.  dbra d7,acrossscrngourD
  9468.  rts
  9469.  
  9470.  CNOP 0,4
  9471.  
  9472. acrossscrngourD:
  9473.  move.w d5,d3
  9474.  lsr.w #8,d3
  9475.  move.b d3,d6
  9476.  move.w d0,d3
  9477.  ifeq CHEESEY
  9478.  move.b (a0,d6.w*4),d3
  9479.  endc
  9480.  ifne CHEESEY
  9481.  move.b (a0,d6.w),d3
  9482.  endc
  9483.  add.w d1,d0
  9484.  add.l d2,d5
  9485.  and.l d4,d5
  9486.  move.l d5,d6
  9487.  swap d6
  9488.  move.w (a1,d3.w),(a3)+
  9489.  move.w d5,d3
  9490.  lsr.w #8,d3
  9491.  move.b d3,d6
  9492.  move.w d0,d3
  9493.  ifeq CHEESEY
  9494.  move.b (a0,d6.w*4),d3
  9495.  endc
  9496.  ifne CHEESEY
  9497.  move.b (a0,d6.w),d3
  9498.  endc
  9499.  add.w d1,d0
  9500.  add.l d2,d5
  9501.  and.l d4,d5
  9502.  move.l d5,d6
  9503.  swap d6
  9504.  move.w (a1,d3.w),(a3)+
  9505.  move.w d5,d3
  9506.  lsr.w #8,d3
  9507.  move.b d3,d6
  9508.  move.w d0,d3
  9509.  ifeq CHEESEY
  9510.  move.b (a0,d6.w*4),d3
  9511.  endc
  9512.  ifne CHEESEY
  9513.  move.b (a0,d6.w),d3
  9514.  endc
  9515.  add.w d1,d0
  9516.  add.l d2,d5
  9517.  and.l d4,d5
  9518.  move.l d5,d6
  9519.  swap d6
  9520.  move.w (a1,d3.w),(a3)+
  9521.  move.w d5,d3
  9522.  lsr.w #8,d3
  9523.  move.b d3,d6
  9524.  move.w d0,d3
  9525.  ifeq CHEESEY
  9526.  move.b (a0,d6.w*4),d3
  9527.  endc
  9528.  ifne CHEESEY
  9529.  move.b (a0,d6.w),d3
  9530.  endc
  9531.  add.w d1,d0
  9532.  add.l d2,d5
  9533.  and.l d4,d5
  9534.  move.l d5,d6
  9535.  swap d6
  9536.  move.w (a1,d3.w),(a3)+
  9537.  dbra d7,acrossscrngourD
  9538.  
  9539.  rts
  9540.  
  9541.  
  9542. ;backbeforegour:
  9543. ; and.w #63*256+63,d5
  9544. ; move.b (a0,d5.w*4),d0
  9545. ; add.l d1,d0
  9546. ; bcc.s .nomoreb
  9547. ; add.w #256,d0
  9548. ;.nomoreb:
  9549. ; add.w a4,d3
  9550. ; move.w (a1,d0.w*2),(a3)+
  9551. ; addx.l d6,d5
  9552. ; dbcs d7,acrossscrngour
  9553. ; dbcc d7,backbeforegour
  9554. ; rts
  9555. ; bra.s past1gour
  9556.  
  9557. ;acrossscrngour:
  9558. ; and.l #$3f3f,d5 
  9559. ; move.b (a0,d5.w*4),d0
  9560. ; add.l d1,d0
  9561. ; bcc.s .nomoreb
  9562. ; add.w #256,d0
  9563. ;.nomoreb:
  9564. ; add.w a4,d3
  9565. ; move.w (a1,d0.w*2),(a3)+
  9566. ; addx.l d2,d5
  9567. ; dbcs d7,acrossscrngour
  9568. ; dbcc d7,backbeforegour
  9569. ;past1gour:
  9570. ; rts
  9571.  
  9572.  move.w d4,d7
  9573.  bne.s .notdoneyet
  9574.  move.l d0,leftbright
  9575.  
  9576.  rts
  9577. .notdoneyet:
  9578.  
  9579.  cmp.w #32,d7
  9580.  ble.s .notoowide
  9581.  move.w #32,d7
  9582. .notoowide
  9583.  sub.w d7,d4  
  9584.  addq #4,a3
  9585.  
  9586. ; dbra d7,backbeforegour
  9587.  rts
  9588.  
  9589.  
  9590. gotoacrossgour:
  9591.  
  9592.  move.w d4,d7
  9593.  bne.s .notdoneyet
  9594.  rts
  9595. .notdoneyet:
  9596.  
  9597.  cmp.w #32,d7
  9598.  ble.s .notoowide
  9599.  move.w #32,d7
  9600. .notoowide
  9601.  sub.w d7,d4  
  9602.  addq #4,a3
  9603.  
  9604.  dbra d7,acrossscrngour
  9605.  rts
  9606.  
  9607.  
  9608. waterpt: dc.l waterlist
  9609.  
  9610. waterlist:
  9611.  dc.l waterfile
  9612.  dc.l waterfile+2
  9613.  dc.l waterfile+256
  9614.  dc.l waterfile+256+2
  9615.  dc.l waterfile+512
  9616.  dc.l waterfile+512+2
  9617.  dc.l waterfile+768
  9618.  dc.l waterfile+768+2
  9619. ; dc.l waterfile+768
  9620. ; dc.l waterfile+512+2
  9621. ; dc.l waterfile+512
  9622. ; dc.l waterfile+256+2
  9623. ; dc.l waterfile+256
  9624. ; dc.l waterfile+2
  9625. endwaterlist:
  9626.  
  9627. watertouse: dc.l waterfile
  9628.  
  9629. wtan: dc.w 0
  9630. wateroff: dc.l 0
  9631.  
  9632. REFLECTIONWATER:
  9633.  
  9634.  move.l d1,d4
  9635.  
  9636.  add.l wateroff,d5
  9637.  
  9638.  move.l #brightentab,a1
  9639.  move.l dst,d0
  9640.  clr.b d0
  9641.  
  9642.  add.w d0,d0
  9643.  cmp.w #12*512,d0
  9644.  blt.s .notoowater
  9645.  move.w #12*512,d0
  9646.  
  9647. .notoowater:
  9648.   
  9649.  adda.w d0,a1
  9650.  
  9651.  move.l dst,d0
  9652.  asl.w #7,d0
  9653.  add.w wtan,d0
  9654.  and.w #8191,d0
  9655.  move.l #SineTable,a0
  9656.  move.w (a0,d0.w),d0
  9657.  ext.l d0
  9658.  
  9659.  move.l dst,d3
  9660.  add.w #300,d3
  9661.  divs d3,d0
  9662.  asr.w #5,d0
  9663.  addq #4,d0
  9664.  cmp.w disttobot,d0
  9665.  blt.s oknotoffbotototr
  9666.  
  9667.  move.w disttobot,d0
  9668.  subq #1,d0
  9669.  
  9670. oknotoffbotototr
  9671.  
  9672. ; move.w dst,d3
  9673. ; asr.w #7,d3
  9674. ; add.w d3,d0
  9675.  
  9676.  muls #320,d0
  9677.  tst.w above
  9678.  beq.s nonnnnnegr
  9679.  neg.l d0
  9680.  
  9681. nonnnnnegr:
  9682.  
  9683.  move.l d0,a6
  9684.  
  9685.  move.l watertouse,a0
  9686.  
  9687. ; move.l #mixtab,a5
  9688.  
  9689.  moveq #0,d1
  9690.  
  9691.  move.w startsmoothx,d3
  9692.  dbra d7,acrossscrnwr
  9693.  rts
  9694.  
  9695. backbeforewr:
  9696.  and.w d1,d5 
  9697.  move.w (a0,d5.w*4),d0
  9698.  move.b (a3,a6.w),d0
  9699.  move.w (a1,d0.w),(a3)+
  9700.  add.w a4,d3
  9701.  addx.l d6,d5
  9702.  dbcs d7,acrossscrnwr
  9703.  dbcc d7,backbeforewr
  9704.  rts
  9705.  
  9706. acrossscrnwr:
  9707.  move.w d5,d3
  9708.  move.l d5,d6
  9709.  lsr.w #8,d3
  9710.  swap d6
  9711.  move.b d3,d6
  9712.  move.w (a0,d6.w*4),d0
  9713.  add.l d2,d5
  9714.  move.w (a4,a6.w),d1
  9715.  addq #2,a4
  9716.  move.b (a3,a6.w),d1
  9717.  move.b (a5,d1.l),d0
  9718.  and.l d4,d5
  9719.  move.w (a1,d0.w),(a3)+
  9720.  dbra d7,acrossscrnwr
  9721.  rts
  9722.  
  9723. texturedwater:
  9724.  
  9725.  move.l d1,d4
  9726.  
  9727.  add.l wateroff,d5
  9728.  
  9729.  move.l #brightentab,a1
  9730.  move.l dst,d0
  9731.  asr.l #1,d0
  9732.  clr.b d0
  9733.  
  9734.  add.w d0,d0
  9735.  cmp.w #9*512,d0
  9736.  blt.s .notoowater
  9737.  move.w #9*512,d0
  9738. .notoowater:
  9739.   
  9740.  adda.w d0,a1
  9741.  
  9742.  move.l dst,d0
  9743.  asl.w #7,d0
  9744.  add.w wtan,d0
  9745.  and.w #8191,d0
  9746.  move.l #SineTable,a0
  9747.  move.w (a0,d0.w),d0
  9748.  ext.l d0
  9749.  
  9750.  move.l dst,d3
  9751.  add.w #300,d3
  9752.  divs d3,d0
  9753.  asr.w #5,d0
  9754.  addq #4,d0
  9755.  cmp.w disttobot,d0
  9756.  blt.s oknotoffbototot
  9757.  
  9758.  move.w disttobot,d0
  9759.  subq #1,d0
  9760.  
  9761. oknotoffbototot
  9762.  
  9763. ; move.w dst,d3
  9764. ; asr.w #7,d3
  9765. ; add.w d3,d0
  9766.  
  9767.  tst.b DOUBLEHEIGHT
  9768.  beq.s .nodoub
  9769.  and.b #$fe,d0
  9770. .nodoub:
  9771.  
  9772.  muls #320,d0
  9773.  tst.w above
  9774.  beq.s nonnnnneg
  9775.  neg.l d0
  9776.  
  9777. nonnnnneg:
  9778.  
  9779.  move.l d0,a6
  9780.  
  9781.  move.l watertouse,a0
  9782.  
  9783.  move.w startsmoothx,d3
  9784.  dbra d7,acrossscrnw
  9785.  rts
  9786.  
  9787. backbeforew:
  9788.  and.w d1,d5
  9789.  move.w (a0,d5.w*4),d0
  9790.  move.b (a3,a6.w),d0
  9791.  move.b (a1,d0.w),(a3)+
  9792.  add.w a4,d3
  9793.  addx.l d6,d5
  9794.  dbcs d7,acrossscrnw
  9795.  dbcc d7,backbeforew
  9796.  rts
  9797.  
  9798. acrossscrnw:
  9799.  move.w d5,d3
  9800.  move.l d5,d6
  9801.  lsr.w #8,d3
  9802.  swap d6
  9803.  move.b d3,d6
  9804.  move.w (a0,d6.w*4),d0
  9805.  add.l d2,d5
  9806.  move.b (a3,a6.w),d0
  9807.  and.l d4,d5
  9808.  move.b (a1,d0.w),(a3)+
  9809.  dbra d7,acrossscrnw
  9810.  rts
  9811.  
  9812.  
  9813. texturedwaterDOUB:
  9814.  
  9815.  move.l d1,d4
  9816.  
  9817.  add.l wateroff,d5
  9818.  
  9819.  move.l #brightentab,a1
  9820.  move.l dst,d0
  9821.  asr.l #1,d0
  9822.  clr.b d0
  9823.  
  9824.  add.w d0,d0
  9825.  cmp.w #9*512,d0
  9826.  blt.s .notoowater
  9827.  move.w #9*512,d0
  9828. .notoowater:
  9829.   
  9830.  adda.w d0,a1
  9831.  
  9832.  move.l dst,d0
  9833.  asl.w #7,d0
  9834.  add.w wtan,d0
  9835.  and.w #8191,d0
  9836.  move.l #SineTable,a0
  9837.  move.w (a0,d0.w),d0
  9838.  ext.l d0
  9839.  
  9840.  move.l dst,d3
  9841.  add.w #300,d3
  9842.  divs d3,d0
  9843.  asr.w #5,d0
  9844.  addq #4,d0
  9845.  cmp.w disttobot,d0
  9846.  blt.s .oknotoffbototot
  9847.  
  9848.  move.w disttobot,d0
  9849.  subq #1,d0
  9850.  
  9851. .oknotoffbototot
  9852.  
  9853. ; move.w dst,d3
  9854. ; asr.w #7,d3
  9855. ; add.w d3,d0
  9856.  
  9857.  tst.b DOUBLEHEIGHT
  9858.  beq.s .nodoub
  9859.  and.b #$fe,d0
  9860. .nodoub:
  9861.  
  9862.  muls #320,d0
  9863.  tst.w above
  9864.  beq.s .nonnnnneg
  9865.  neg.l d0
  9866.  
  9867. .nonnnnneg:
  9868.  
  9869.  move.l d0,a6
  9870.  
  9871.  move.l watertouse,a0
  9872.  
  9873.  add.l d2,d2
  9874.  
  9875.  move.w startsmoothx,d3
  9876.  dbra d7,acrossscrnwD
  9877.  rts
  9878.  
  9879.  
  9880. acrossscrnwD:
  9881.  move.w d5,d3
  9882.  move.l d5,d6
  9883.  lsr.w #8,d3
  9884.  swap d6
  9885.  move.b d3,d6
  9886.  move.w (a0,d6.w*4),d0
  9887.  add.l d2,d5
  9888.  move.b (a3,a6.w),d0
  9889.  and.l d4,d5
  9890.  move.w (a1,d0.w),(a3)+
  9891.  dbra d7,acrossscrnwD
  9892.  rts
  9893.  
  9894.  
  9895. usewater: dc.w 0
  9896.  dc.w 0
  9897. startsmoothx: dc.w 0
  9898.  dc.w 0
  9899. startsmoothz: dc.w 0
  9900.  
  9901. ********************************
  9902. *
  9903.  include "AB3:source_4000/ObjDrawHIRES.s"
  9904. *
  9905. ********************************
  9906.  
  9907. numframes:
  9908.  dc.w 0
  9909.  
  9910. alframe: dc.l 0
  9911.  
  9912. alan:
  9913.  dcb.l 8,0
  9914.  dcb.l 8,1
  9915.  dcb.l 8,2
  9916.  dcb.l 8,3
  9917. endalan:
  9918.  
  9919. alanptr: dc.l alan
  9920.  
  9921. Time2: dc.l 0
  9922. dispco:
  9923.  dc.w 0
  9924.  
  9925.  
  9926. key_interrupt:
  9927.         movem.l    d0-d7/a0-a6,-(sp)
  9928.  
  9929. ;        move.w    INTREQR,d0
  9930. ;        btst    #3,d0
  9931. ;        beq    .not_key
  9932.  
  9933.         move.b    $bfdd00,d0
  9934.         btst    #0,d0
  9935.         bne    .key_cont
  9936. ;        move.b    $bfed01,d0
  9937. ;        btst    #0,d0
  9938. ;        bne    .key_cont
  9939.     
  9940. ;        btst    #3,d0
  9941. ;        beq    .key_cont
  9942.  
  9943.         move.b    $bfec01,d0
  9944.         clr.b    $bfec01
  9945.  
  9946.         tst.b    d0
  9947.         beq    .key_cont
  9948.  
  9949. ;        bset    #6,$bfee01
  9950. ;        move.b    #$f0,$bfe401
  9951. ;        move.b    #$00,$bfe501
  9952. ;        bset    #0,$bfee01
  9953.  
  9954.  
  9955.         not.b    d0
  9956.         ror.b    #1,d0
  9957.         lea.l    KeyMap,a0
  9958.         tst.b    d0
  9959.         bmi.b    .key_up
  9960.         and.w    #$7f,d0
  9961. ;        add.w    #1,d0
  9962.         move.b    #$ff,(a0,d0.w)
  9963.         move.b    d0,lastpressed
  9964.  
  9965.         bra.b    .key_cont2
  9966. .key_up:
  9967.         and.w    #$7f,d0
  9968. ;        add.w    #1,d0
  9969.         move.b    #$00,(a0,d0.w)
  9970.  
  9971. .key_cont2
  9972. ;        btst    #0,$bfed01
  9973. ;        beq    .key_cont2
  9974. ;        move.b    #%00000000,$bfee01
  9975. ;        move.b    #%10001000,$bfed01
  9976.  
  9977. ;alt keys should not be independent so overlay ralt on lalt
  9978.  
  9979.         
  9980. .key_cont
  9981.  
  9982. ;        move.w    #$0008,INTREQ
  9983. .not_key:    ;lea.l    $dff000,a5
  9984.  
  9985. ;        lea.l    _keypressed(pc),a0
  9986. ;        move.b    101(a0),d0    ;read LALT
  9987. ;        or.b    102(a0),d0    ;blend it with RALT
  9988. ;        move.b    d0,127(a0)    ;save in combined position
  9989.  
  9990.         movem.l    (sp)+,d0-d7/a0-a6
  9991.  
  9992.         rts
  9993.  
  9994. lastpressed:    dc.b 0
  9995. KInt_CCode    Ds.b    1
  9996. KInt_Askey    Ds.b    1
  9997. KInt_OCode    Ds.w    1
  9998.  
  9999.  
  10000. OldSpace: dc.b 0
  10001. SpaceTapped: dc.b 0
  10002. PLR1_SPCTAP: dc.b 0
  10003. PLR2_SPCTAP: dc.b 0
  10004. PLR1_Ducked: dc.b 0
  10005. PLR2_Ducked: dc.b 0
  10006.  even
  10007.  
  10008.  include "ab3:source_4000/PLR1CONTROL.s"
  10009.  include "ab3:source_4000/PLR2CONTROL.s"
  10010.  include "ab3:source_4000/FALL.s"
  10011.  
  10012. prot7: dc.w 0
  10013.  
  10014. GOTTOSEND: dc.w 0
  10015.  
  10016. OtherInter:
  10017.  move.w #$0010,$dff000+intreq
  10018.  movem.l d0-d7/a0-a6,-(a7)
  10019.  bra justshake
  10020.  
  10021.     cnop 0,4
  10022.  
  10023. Chan0inter:
  10024.  
  10025.     SAVEREGS
  10026.     jsr    .routine
  10027.     GETREGS
  10028.  
  10029. ;    move.w    #1024+'.',$dff030
  10030.     
  10031.     moveq #1,d0
  10032.     rts
  10033.  
  10034. .routine
  10035.  
  10036.     
  10037. ;w move.w #$0010,$dff000+intreq
  10038.  
  10039.  tst.b doanything
  10040.  bne dosomething
  10041.  
  10042.  movem.l d0-d7/a0-a6,-(a7)
  10043.  bra JUSTSOUNDS
  10044.  
  10045.  rts
  10046.  
  10047. tabheld: dc.w 0
  10048. ObjWork: ds.l 512
  10049. WORKPTR: dc.l 0
  10050. thistime: dc.w 0
  10051.  
  10052. DOALLANIMS:
  10053.  
  10054.  sub.b #1,thistime
  10055.  ble.s .okdosome
  10056.  rts
  10057.  
  10058. .okdosome:
  10059.  move.b #5,thistime
  10060.  
  10061.  
  10062.  move.l #ObjWork,a5
  10063.  move.l ObjectData,a0
  10064. Objectloop2:
  10065.  tst.w (a0)
  10066.  blt doneallobj2
  10067.  move.w 12(a0),d0
  10068.  blt doneobj2
  10069.  move.w d0,GraphicRoom(a0)
  10070.  tst.b worry(a0)
  10071.  beq.s doneobj2
  10072.  
  10073.  move.b 16(a0),d0
  10074.  cmp.b #1,d0
  10075.  blt JUMPALIENANIM
  10076.  beq JUMPOBJECTANIM
  10077. ; cmp.b #2,d0
  10078. ; beq JUMPBULLET
  10079.  
  10080. doneobj2:
  10081.  
  10082.  adda.w #64,a0
  10083.  addq #8,a5
  10084.  bra Objectloop2
  10085.  
  10086. doneallobj2:
  10087.  rts
  10088.  
  10089. JUMPALIENANIM:
  10090.  
  10091.  moveq #0,d0
  10092.  move.b WhichAnim(a0),d0
  10093. ; 0=walking
  10094. ; 1=attacking
  10095. ; 2=getting hit
  10096. ; 3=dying
  10097.  
  10098.  cmp.b #1,d0
  10099.  blt.s ALWALK
  10100.  beq.s ALATTACK
  10101.  
  10102.  cmp.b #3,d0
  10103.  blt ALGETHIT
  10104.  beq ALDIE
  10105.  
  10106.  bra doneobj2
  10107.  
  10108. ALDIE
  10109.  move.l #10,d0
  10110.  bra intowalk
  10111.  
  10112. ALGETHIT:
  10113.  move.l #9,d0
  10114.  bra intowalk
  10115.  
  10116. ALATTACK:
  10117.  move.l #8,d0
  10118.  bra intowalk
  10119.  
  10120. AUXOBJ: dc.w 0
  10121.  
  10122. ALWALK:
  10123.  
  10124.  jsr ViewpointToDraw
  10125.  add.l d0,d0
  10126.  
  10127.  move.l LINKFILE,a6
  10128.  add.l #AlienStats,a6
  10129.  moveq #0,d1
  10130.  move.b TypeOfThing(a0),d1
  10131.  muls #AlienStatLen,d1
  10132.  add.l d1,a6
  10133.  cmp.w #1,A_GFXType(a6)
  10134.  bne.s NOSIDES2
  10135.  
  10136.  moveq #0,d0
  10137. intowalk:
  10138.  
  10139. NOSIDES2:
  10140.  
  10141.  move.b d0,2(a5)
  10142.  move.l LINKFILE,a6
  10143.  
  10144.  add.l #AlienAnimData,a6
  10145.  
  10146.  moveq #0,d1
  10147.  move.b TypeOfThing(a0),d1
  10148.  muls #A_AnimLen,d1
  10149.  add.l d1,a6
  10150.  
  10151. ; move.l ANIMPOINTER,a6
  10152.  
  10153.  muls #A_OptLen,d0
  10154.  add.w d0,a6
  10155.  
  10156.  move.w SecTimer(a0),d1
  10157.  move.w d1,d2
  10158.  muls #A_FrameLen,d1
  10159.  
  10160.  moveq #0,d0
  10161.  move.b 5(a6,d1.w),d0
  10162.  beq.s .nosoundmake
  10163.  
  10164.  movem.l d0-d7/a0-a6,-(a7)
  10165.  subq #1,d0
  10166.  move.w d0,Samplenum
  10167.  clr.b notifplaying
  10168.  move.b 1(a0),IDNUM
  10169.  move.w #80,Noisevol
  10170.  move.l #ObjRotated,a1
  10171.  move.w (a0),d0
  10172.  lea (a1,d0.w*8),a1
  10173.  move.l (a1),Noisex
  10174.  jsr MakeSomeNoise
  10175.  movem.l (a7)+,d0-d7/a0-a6
  10176. .nosoundmake
  10177.  
  10178.  move.b 6(a6,d1.w),d0
  10179.  beq.s .noaction
  10180.  add.b #1,(a5)
  10181.  move.b d2,1(a5)
  10182. .noaction
  10183.  
  10184.  addq #1,d2
  10185.  
  10186.  moveq #0,d0
  10187.  move.b 7(a6,d1.w),d0
  10188.  beq.s .nospecial
  10189.  
  10190.  move.b d0,d3
  10191.  and.w #63,d3
  10192.  lsr.w #6,d0
  10193.  cmp.w #2,d0
  10194.  blt.s .storeval
  10195.  beq.s .randval
  10196.  
  10197.  sub.b #1,4(a5)
  10198.  beq.s .nospecial
  10199.  
  10200.  move.w d3,d2
  10201.  bra.s .nospecial
  10202.  
  10203. .randval:
  10204.  jsr GetRand
  10205.  divs d3,d0
  10206.  swap d0
  10207.  move.w d0,d3
  10208.  
  10209. .storeval:
  10210.  move.b d3,4(a5)
  10211. .nospecial:
  10212.  
  10213.  move.w d2,d3
  10214.  muls #A_FrameLen,d3
  10215.  tst.b (a6,d3.w)
  10216.  bge.s .noendanim
  10217.  st 3(a5)
  10218.  move.w #0,d2
  10219. .noendanim
  10220.  move.w d2,SecTimer(a0)
  10221.  
  10222.  bra doneobj2
  10223.  
  10224.  
  10225. JUMPOBJECTANIM:
  10226.  bra doneobj2
  10227.  
  10228. timetodamage: dc.w 0
  10229. SAVESAVE: dc.w 0
  10230.  
  10231. dosomething:
  10232.  
  10233.  
  10234.  
  10235.  addq.w #1,FramesToDraw
  10236.  movem.l d0-d7/a0-a6,-(a7)
  10237.  
  10238.  jsr NARRATOR
  10239.  
  10240.  bsr DOALLANIMS
  10241.  
  10242.  sub.w #1,timetodamage
  10243.  bgt.s .nodam
  10244.  
  10245.  move.w #100,timetodamage
  10246.  
  10247.  move.l PLR1_Roompt,a0
  10248.  move.w ToFloorNoise(a0),d0
  10249.  tst.b PLR1_StoodInTop
  10250.  beq.s .okinbot
  10251.  move.w ToUpperFloorNoise(a0),d0
  10252. .okinbot:
  10253.  
  10254.  move.l LINKFILE,a0
  10255.  add.l #FloorData,a0
  10256.  move.w (a0,d0.w*4),d0    ; damage. 
  10257.  move.l PLR1_Obj,a0
  10258.  add.b d0,damagetaken(a0)
  10259.  
  10260.  move.l PLR2_Roompt,a0
  10261.  move.w ToFloorNoise(a0),d0
  10262.  tst.b PLR2_StoodInTop
  10263.  beq.s .okinbot2
  10264.  move.w ToUpperFloorNoise(a0),d0
  10265. .okinbot2:
  10266.  
  10267.  move.l LINKFILE,a0
  10268.  add.l #FloorData,a0
  10269.  move.w (a0,d0.w*4),d0    ; damage. 
  10270.  
  10271.  move.l PLR2_Obj,a0
  10272.  add.b d0,damagetaken(a0)
  10273.  
  10274. .nodam:
  10275.  
  10276.  move.l #KeyMap,a5
  10277.  
  10278.  tst.b $42(a5)
  10279.  bne.s .tabprsd
  10280.  clr.b tabheld
  10281.  bra.s .noswitch
  10282.  
  10283. .tabprsd:
  10284.  tst.b tabheld
  10285.  bne.s .noswitch
  10286.  not.b MAPON
  10287.  st tabheld
  10288. .noswitch
  10289.  
  10290.  tst.b $3e(a5)
  10291.  sne d0
  10292.  tst.b $1e(a5)
  10293.  sne d1
  10294.  tst.b $2d(a5)
  10295.  sne d2
  10296.  tst.b $2f(a5)
  10297.  sne d3
  10298.  
  10299.  tst.b $3d(a5)
  10300.  sne d4
  10301.  tst.b $3f(a5)
  10302.  sne d5
  10303.  tst.b $1d(a5)
  10304.  sne d6
  10305.  tst.b $1f(a5)
  10306.  sne d7
  10307.  
  10308.  or.b d4,d0
  10309.  or.b d5,d0
  10310.  or.b d6,d1
  10311.  or.b d7,d1
  10312.  or.b d4,d2
  10313.  or.b d6,d2
  10314.  or.b d7,d3
  10315.  or.b d5,d3
  10316.  
  10317.  move.w MAPBRIGHT,d4
  10318.  add.w #2,d4
  10319.  clr.l d5
  10320.  bset d4,d5
  10321.  
  10322.  tst.b d0
  10323.  beq.s .nomapup
  10324.  sub.w d5,mapzoff
  10325. .nomapup 
  10326.  
  10327.  tst.b d1
  10328.  beq.s .nomapdown
  10329.  add.w d5,mapzoff
  10330. .nomapdown 
  10331.  
  10332.  tst.b d2
  10333.  beq.s .nomapleft
  10334.  add.w d5,mapxoff
  10335. .nomapleft 
  10336.  
  10337.  tst.b d3
  10338.  beq.s .nomapright
  10339.  sub.w d5,mapxoff
  10340. .nomapright 
  10341.  
  10342.  tst.b $2e(a5)
  10343.  beq.s .nomapcentre
  10344.  
  10345.  move.w #0,mapxoff
  10346.  move.w #0,mapzoff
  10347.  
  10348. .nomapcentre
  10349.  
  10350. ; move.w STOPOFFSET,d0
  10351. ; tst.b 27(a5)
  10352. ; beq.s .nolookup
  10353. ; sub.w #5,d0
  10354. ; cmp.w #-80,d0
  10355. ; bgt.s .nolookup
  10356. ; move.w #-80,d0
  10357. ;.nolookup:
  10358. ; tst.b 42(a5)
  10359. ; beq.s .nolookdown
  10360. ; add.w #5,d0
  10361. ; cmp.w #80,d0
  10362. ; blt.s .nolookdown
  10363. ; move.w #80,d0
  10364. ;.nolookdown:
  10365. ;
  10366. ; move.w d0,STOPOFFSET
  10367. ; neg.w d0
  10368. ; add.w #120,d0
  10369. ; move.w d0,SMIDDLEY
  10370. ; muls #320*2,d0
  10371. ; move.l d0,SBIGMIDDLEY
  10372.  
  10373.  
  10374. ; jsr INITREC
  10375. ; jsr RECEIVE
  10376.  
  10377. ; tst.l BUFFER
  10378. ; beq.s justshake
  10379. ; st GOTTOSEND
  10380. ; move.l #OtherInter,$6c
  10381.  
  10382. justshake:
  10383.  
  10384.  cmp.b #'b',Prefsfile+3
  10385.  bne.s .noback
  10386.  jsr mt_music
  10387. .noback:
  10388.  
  10389.  bra dontshowtime
  10390.  
  10391.  tst.b oktodisplay
  10392.  beq dontshowtime
  10393.  clr.b oktodisplay
  10394.  subq.w #1,dispco
  10395.  bgt dontshowtime
  10396.  move.w #10,dispco
  10397.  
  10398.  move.l #TimerScr+10,a0
  10399.  move.l TimeCount,d0
  10400.  bge.s timenotneg
  10401.  move.l #1111*256,d0
  10402. timenotneg:
  10403.  asr.l #8,d0
  10404.  move.l #digits,a1
  10405.  move.w #7,d2
  10406. digitlop
  10407.  divs #10,d0
  10408.  swap d0
  10409.  lea (a1,d0.w*8),a2
  10410.  move.b (a2)+,(a0)
  10411.  move.b (a2)+,24(a0)
  10412.  move.b (a2)+,24*2(a0)
  10413.  move.b (a2)+,24*3(a0)
  10414.  move.b (a2)+,24*4(a0)
  10415.  move.b (a2)+,24*5(a0)
  10416.  move.b (a2)+,24*6(a0)
  10417.  move.b (a2)+,24*7(a0)
  10418.  subq #1,a0
  10419.  swap d0
  10420.  ext.l d0
  10421.  dbra d2,digitlop
  10422.  
  10423.  move.l #TimerScr+10+24*10,a0
  10424.  move.l NumTimes,d0
  10425.  move.l #digits,a1
  10426.  move.w #3,d2
  10427. digitlop2
  10428.  divs #10,d0
  10429.  swap d0
  10430.  lea (a1,d0.w*8),a2
  10431.  move.b (a2)+,(a0)
  10432.  move.b (a2)+,24(a0)
  10433.  move.b (a2)+,24*2(a0)
  10434.  move.b (a2)+,24*3(a0)
  10435.  move.b (a2)+,24*4(a0)
  10436.  move.b (a2)+,24*5(a0)
  10437.  move.b (a2)+,24*6(a0)
  10438.  move.b (a2)+,24*7(a0)
  10439.  subq #1,a0
  10440.  swap d0
  10441.  ext.l d0
  10442.  dbra d2,digitlop2
  10443.  
  10444.  move.l #TimerScr+10+24*20,a0
  10445.  moveq #0,d0
  10446.  move.w FramesToDraw,d0
  10447.  move.l #digits,a1
  10448.  move.w #2,d2
  10449. digitlop3
  10450.  divs #10,d0
  10451.  swap d0
  10452.  lea (a1,d0.w*8),a2
  10453.  move.b (a2)+,(a0)
  10454.  move.b (a2)+,24(a0)
  10455.  move.b (a2)+,24*2(a0)
  10456.  move.b (a2)+,24*3(a0)
  10457.  move.b (a2)+,24*4(a0)
  10458.  move.b (a2)+,24*5(a0)
  10459.  move.b (a2)+,24*6(a0)
  10460.  move.b (a2)+,24*7(a0)
  10461.  subq #1,a0
  10462.  swap d0
  10463.  ext.l d0
  10464.  dbra d2,digitlop3
  10465.  
  10466. dontshowtime:
  10467.  
  10468.  
  10469.  move.l alanptr,a0
  10470.  move.l (a0)+,alframe
  10471.  cmp.l #endalan,a0
  10472.  blt.s nostartalan
  10473.  move.l #alan,a0
  10474. nostartalan:
  10475.  move.l a0,alanptr
  10476.  
  10477.  
  10478.  tst.b READCONTROLS
  10479.  beq nocontrols
  10480.  
  10481.  cmp.b #'s',mors
  10482.  beq control2
  10483.  
  10484.  tst.w PLAYERONEHEALTH
  10485.  bgt .propercontrol
  10486.  
  10487.  move.l #7*2116,hitcol
  10488.  move.l #PLR1_Obj,a0
  10489.  move.w #-1,12+128(a0)
  10490.  
  10491.  clr.b PLR1_fire
  10492.  clr.b PLR1_clicked
  10493.  move.w #0,ADDTOBOBBLE
  10494.  move.l #playercrouched,PLR1s_height
  10495.  move.w #-80,d0
  10496.  move.w d0,STOPOFFSET
  10497.  neg.w d0
  10498.  add.w TOTHEMIDDLE,d0
  10499.  move.w d0,SMIDDLEY
  10500.  muls #320,d0
  10501.  move.l d0,SBIGMIDDLEY
  10502.  jsr PLR1_fall
  10503.  
  10504.  move.l PLR1s_xspdval,d6
  10505.  move.l PLR1s_zspdval,d7
  10506.  
  10507.  tst.b SLOWDOWN
  10508.  beq.s .nofriction
  10509.  
  10510.  neg.l d6
  10511.  ble.s .nobug1
  10512.  asr.l #3,d6
  10513.  add.l #1,d6
  10514.  bra.s .bug1
  10515. .nobug1
  10516.  asr.l #3,d6
  10517. .bug1:
  10518.  
  10519.  neg.l d7
  10520.  ble.s .nobug2
  10521.  asr.l #3,d7
  10522.  add.l #1,d7
  10523.  bra.s .bug2
  10524. .nobug2
  10525.  asr.l #3,d7
  10526. .bug2: 
  10527.  
  10528.  add.l d6,PLR1s_xspdval
  10529.  add.l d7,PLR1s_zspdval
  10530.  
  10531. .nofriction:
  10532.  move.l PLR1s_xspdval,d6
  10533.  move.l PLR1s_zspdval,d7
  10534.  add.l d6,PLR1s_xoff
  10535.  add.l d7,PLR1s_zoff
  10536.  
  10537.  move.w PLR1s_angspd,d3
  10538.  tst.b SLOWDOWN
  10539.  beq.s .nofric
  10540.  asr.w #2,d3
  10541.  bge.s .nneg
  10542.  addq #1,d3
  10543. .nneg:
  10544. .nofric:
  10545.  
  10546.  move.w d3,PLR1s_angspd
  10547.  add.w d3,PLR1s_angpos
  10548.  add.w d3,PLR1s_angpos
  10549.  and.w #8190,PLR1s_angpos
  10550.  
  10551.  bra nocontrols
  10552.  
  10553. .propercontrol:
  10554.  
  10555.  tst.b PLR1MOUSE
  10556.  beq.s PLR1_nomouse
  10557.  bsr PLR1_mouse_control
  10558. PLR1_nomouse:
  10559.  tst.b PLR1KEYS
  10560.  beq.s PLR1_nokeys
  10561.  bsr PLR1_keyboard_control
  10562. PLR1_nokeys:
  10563. ; tst.b PLR1PATH
  10564. ; beq.s PLR1_nopath
  10565. ; bsr PLR1_follow_path
  10566. ;PLR1_nopath:
  10567.  tst.b PLR1JOY
  10568.  beq.s PLR1_nojoy
  10569.  bsr PLR1_JoyStick_control
  10570. PLR1_nojoy: 
  10571.  bra nocontrols
  10572.  
  10573. control2:
  10574.  
  10575.  tst.w PLAYERTWOHEALTH
  10576.  bgt .propercontrol
  10577.  
  10578.  move.l #7*2116,hitcol
  10579.  move.l #PLR1_Obj,a0
  10580.  move.w #-1,12+128(a0)
  10581.  clr.b PLR2_fire
  10582.  move.w #0,ADDTOBOBBLE
  10583.  move.l #playercrouched,PLR2s_height
  10584.  move.w #-80,d0
  10585.  move.w d0,STOPOFFSET
  10586.  neg.w d0
  10587.  add.w TOTHEMIDDLE,d0
  10588.  move.w d0,SMIDDLEY
  10589.  muls #320,d0
  10590.  move.l d0,SBIGMIDDLEY
  10591.  jsr PLR2_fall
  10592.  
  10593.  move.l PLR2s_xspdval,d6
  10594.  move.l PLR2s_zspdval,d7
  10595.  
  10596.  tst.b SLOWDOWN
  10597.  beq.s .nofriction
  10598.  
  10599.  neg.l d6
  10600.  ble.s .nobug1
  10601.  asr.l #3,d6
  10602.  add.l #1,d6
  10603.  bra.s .bug1
  10604. .nobug1
  10605.  asr.l #3,d6
  10606. .bug1:
  10607.  
  10608.  neg.l d7
  10609.  ble.s .nobug2
  10610.  asr.l #3,d7
  10611.  add.l #1,d7
  10612.  bra.s .bug2
  10613. .nobug2
  10614.  asr.l #3,d7
  10615. .bug2: 
  10616.  
  10617.  add.l d6,PLR2s_xspdval
  10618.  add.l d7,PLR2s_zspdval
  10619.  
  10620. .nofriction:
  10621.  move.l PLR2s_xspdval,d6
  10622.  move.l PLR2s_zspdval,d7
  10623.  add.l d6,PLR2s_xoff
  10624.  add.l d7,PLR2s_zoff
  10625.  
  10626.  move.w PLR2s_angspd,d3
  10627.  tst.b SLOWDOWN
  10628.  beq.s .nofric
  10629.  asr.w #2,d3
  10630.  bge.s .nneg
  10631.  addq #1,d3
  10632. .nneg:
  10633. .nofric:
  10634.  
  10635.  move.w d3,PLR2s_angspd
  10636.  add.w d3,PLR2s_angpos
  10637.  add.w d3,PLR2s_angpos
  10638.  and.w #8190,PLR2s_angpos
  10639.  
  10640.  bra.s nocontrols
  10641.  
  10642. .propercontrol:
  10643.  tst.b PLR2MOUSE
  10644.  beq.s PLR2_nomouse
  10645.  bsr PLR2_mouse_control
  10646. PLR2_nomouse:
  10647.  tst.b PLR2KEYS
  10648.  beq.s PLR2_nokeys
  10649.  bsr PLR2_keyboard_control
  10650. PLR2_nokeys:
  10651. ; tst.b PLR2PATH
  10652. ; beq.s PLR2_nopath
  10653. ; bsr PLR1_follow_path
  10654. ;PLR2_nopath:
  10655.  tst.b PLR2JOY
  10656.  beq.s PLR2_nojoy
  10657.  bsr PLR2_JoyStick_control
  10658. PLR2_nojoy: 
  10659.  
  10660.  
  10661. nocontrols:
  10662.  
  10663.  move.l #$dff000,a6
  10664.  
  10665.  cmp.b #'4',Prefsfile+1
  10666.  bne.s nomuckabout
  10667.  
  10668.  move.w #$0,d0 
  10669.  tst.b NoiseMade0LEFT
  10670.  beq.s noturnoff0
  10671.  move.w #1,d0
  10672. noturnoff0:
  10673.  tst.b NoiseMade0RIGHT
  10674.  beq.s noturnoff1
  10675.  or.w #2,d0
  10676. noturnoff1:
  10677.  tst.b NoiseMade1RIGHT
  10678.  beq.s noturnoff2
  10679.  or.w #4,d0
  10680. noturnoff2:
  10681.  tst.b NoiseMade1LEFT
  10682.  beq.s noturnoff3
  10683.  or.w #8,d0
  10684. noturnoff3:
  10685.     move.w d0,dmacon(a6)
  10686.  
  10687. nomuckabout:
  10688.  
  10689.  
  10690. ; tst.b PLR2_fire
  10691. ; beq.s firenotpressed2
  10692. ; fire was pressed last time.
  10693. ; btst #7,$bfe001
  10694. ; bne.s firenownotpressed2
  10695. ; fire is still pressed this time.
  10696. ; st PLR2_fire
  10697. ; bra dointer
  10698.  
  10699. firenownotpressed2:
  10700. ; fire has been released.
  10701. ; clr.b PLR2_fire
  10702. ; bra dointer
  10703.  
  10704. firenotpressed2
  10705.  
  10706. ; fire was not pressed last frame...
  10707.  
  10708. ; btst #7,$bfe001
  10709. ; if it has still not been pressed, go back above
  10710. ; bne.s firenownotpressed2
  10711. ; fire was not pressed last time, and was this time, so has
  10712. ; been clicked.
  10713. ; st PLR2_clicked
  10714. ; st PLR2_fire
  10715.  
  10716. dointer
  10717.  
  10718. JUSTSOUNDS:
  10719.  
  10720.  tst.b dosounds
  10721.  beq.s .notthing
  10722.  
  10723.  cmp.b #'4',Prefsfile+1
  10724.     beq fourchannel
  10725.  
  10726.  btst #1,$dff000+intreqr
  10727.     bne.s newsampbitl
  10728.  
  10729. .notthing:
  10730.  
  10731.  movem.l (a7)+,d0-d7/a0-a6
  10732.  
  10733.  moveq #0,d0
  10734.  rts
  10735.  
  10736.  
  10737. dosounds: dc.w 0
  10738.  
  10739. swappedem: dc.w 0
  10740.  
  10741. newsampbitl:
  10742.  
  10743.  move.w #$820f,$dff000+dmacon
  10744.  
  10745.  move.w #$200,$dff000+intreq
  10746.  
  10747. ; tst.b CHANNELDATA
  10748. ; bne nochannel0
  10749.  
  10750.  move.l pos0LEFT,a0
  10751.  move.l pos2LEFT,a1
  10752.  
  10753.  move.l #tab,a2
  10754.  
  10755.  moveq #0,d0
  10756.  moveq #0,d1
  10757.  move.b vol0left,d0
  10758.  move.b vol2left,d1
  10759.  cmp.b d1,d0
  10760.  slt swappedem
  10761.  bge.s fbig0
  10762.  
  10763. ; d1 is bigger so scale d0 and use d1
  10764. ; as audiochannel volume.
  10765.  
  10766.  exg a0,a1
  10767.  asl.w #6,d0
  10768.  divs d1,d0
  10769.  lsl.w #8,d0
  10770.  adda.w d0,a2
  10771.  move.w d1,$dff0a8
  10772.  bra.s donechan0
  10773.  
  10774. fbig0:
  10775.  tst.w d0
  10776.  beq.s donechan0
  10777.  asl.w #6,d1
  10778.  divs d0,d1
  10779.  lsl.w #8,d1
  10780.  adda.w d1,a2
  10781.  move.w d0,$dff0a8
  10782.  
  10783. donechan0:
  10784.  
  10785.  move.l Aupt0,a3
  10786.  move.l a3,$dff0a0
  10787.  move.l Auback0,Aupt0
  10788.  move.l a3,Auback0
  10789.  
  10790.  move.l Auback0,a3
  10791.  
  10792.  moveq #0,d0
  10793.  moveq #0,d1
  10794.  moveq #0,d2
  10795.  moveq #0,d3
  10796.  moveq #0,d4
  10797.  moveq #0,d5
  10798.  move.w #49,d7
  10799. loop:
  10800.  move.l (a0)+,d0
  10801.  move.b (a1)+,d1
  10802.  move.b (a1)+,d2
  10803.  move.b (a1)+,d3
  10804.  move.b (a1)+,d4
  10805.  move.b (a2,d3.w),d5
  10806.  swap d5
  10807.  move.b (a2,d1.w),d5
  10808.  asl.l #8,d5
  10809.  move.b (a2,d2.w),d5
  10810.  swap d5
  10811.  move.b (a2,d4.w),d5
  10812.  add.l d5,d0
  10813.  move.l d0,(a3)+
  10814.  dbra d7,loop
  10815.  
  10816.  tst.b swappedem
  10817.  beq.s .ok23
  10818.  exg a0,a1
  10819. .ok23:
  10820.  
  10821.  cmp.l Samp0endLEFT,a0
  10822.  blt.s .notoffendsamp1
  10823.  move.l #empty,a0
  10824.  move.l #emptyend,Samp0endLEFT
  10825.  move.b #0,vol0left
  10826.  st LEFTCHANDATA+1
  10827.  move.w #0,LEFTCHANDATA+2
  10828. .notoffendsamp1:
  10829.  
  10830.  cmp.l Samp2endLEFT,a1
  10831.  blt.s .notoffendsamp2
  10832.  move.l #empty,a1
  10833.  move.l #emptyend,Samp2endLEFT
  10834.  move.b #0,vol2left
  10835.  st LEFTCHANDATA+1+8
  10836.  move.w #0,LEFTCHANDATA+2+8
  10837. .notoffendsamp2:
  10838.  
  10839.  move.l a0,pos0LEFT
  10840.  move.l a1,pos2LEFT
  10841.  
  10842. nochannel0:
  10843.  
  10844.  tst.b CHANNELDATA+16
  10845.  bne nochannel1
  10846.  
  10847.  
  10848.  move.l pos0RIGHT,a0
  10849.  move.l pos2RIGHT,a1
  10850.  
  10851.  move.l Aupt1,a3
  10852.  move.l a3,$dff0b0
  10853.  move.l Auback1,Aupt1
  10854.  move.l a3,Auback1
  10855.  
  10856.  move.l #tab,a2
  10857.  
  10858.  moveq #0,d0
  10859.  moveq #0,d1
  10860.  move.b vol0right,d0
  10861.  move.b vol2right,d1
  10862.  cmp.b d1,d0
  10863.  slt swappedem
  10864.  bge.s fbig1
  10865.  
  10866. ; d1 is bigger so scale d0 and use d1
  10867. ; as audiochannel volume.
  10868.  
  10869.  exg a0,a1
  10870.  asl.w #6,d0
  10871.  divs d1,d0
  10872.  lsl.w #8,d0
  10873.  adda.w d0,a2
  10874.  move.w d1,$dff0b8
  10875.  bra.s donechan1
  10876.  
  10877. fbig1:
  10878.  tst.w d0
  10879.  beq.s donechan1
  10880.  asl.w #6,d1
  10881.  divs d0,d1
  10882.  lsl.w #8,d1
  10883.  adda.w d1,a2
  10884.  move.w d0,$dff0b8
  10885.  
  10886. donechan1:
  10887.  moveq #0,d0
  10888.  moveq #0,d1
  10889.  moveq #0,d2
  10890.  moveq #0,d3
  10891.  moveq #0,d4
  10892.  moveq #0,d5
  10893.  move.w #49,d7
  10894. loop2:
  10895.  move.l (a0)+,d0
  10896.  move.b (a1)+,d1
  10897.  move.b (a1)+,d2
  10898.  move.b (a1)+,d3
  10899.  move.b (a1)+,d4
  10900.  move.b (a2,d3.w),d5
  10901.  swap d5
  10902.  move.b (a2,d1.w),d5
  10903.  asl.l #8,d5
  10904.  move.b (a2,d2.w),d5
  10905.  swap d5
  10906.  move.b (a2,d4.w),d5
  10907.  add.l d5,d0
  10908.  move.l d0,(a3)+
  10909.  dbra d7,loop2
  10910.  
  10911.  tst.b swappedem
  10912.  beq.s ok01
  10913.  exg a0,a1
  10914. ok01:
  10915.  
  10916.  cmp.l Samp0endRIGHT,a0
  10917.  blt.s .notoffendsamp1
  10918.  move.l #empty,a0
  10919.  move.l #emptyend,Samp0endRIGHT
  10920.  move.b #0,vol0right
  10921.  st RIGHTCHANDATA+1
  10922.  move.w #0,RIGHTCHANDATA+2
  10923. .notoffendsamp1:
  10924.  
  10925.  cmp.l Samp2endRIGHT,a1
  10926.  blt.s .notoffendsamp2
  10927.  move.l #empty,a1
  10928.  move.l #emptyend,Samp2endRIGHT
  10929.  move.b #0,vol2right
  10930.  st RIGHTCHANDATA+1+8
  10931.  move.w #0,RIGHTCHANDATA+2+8
  10932. .notoffendsamp2:
  10933.  
  10934.  move.l a0,pos0RIGHT
  10935.  move.l a1,pos2RIGHT
  10936.  
  10937. nochannel1:
  10938.  
  10939. ******************* Other two channels
  10940.  
  10941.  move.l pos1LEFT,a0
  10942.  move.l pos3LEFT,a1
  10943.  
  10944.  move.l #tab,a2
  10945.  
  10946.  moveq #0,d0
  10947.  moveq #0,d1
  10948.  move.b vol1left,d0
  10949.  move.b vol3left,d1
  10950.  cmp.b d1,d0
  10951.  slt swappedem
  10952.  bge.s fbig2
  10953.  
  10954. ; d1 is bigger so scale d0 and use d1
  10955. ; as audiochannel volume.
  10956.  
  10957.  exg a0,a1
  10958.  asl.w #6,d0
  10959.  divs d1,d0
  10960.  lsl.w #8,d0
  10961.  adda.w d0,a2
  10962.  move.w d1,$dff0d8
  10963.  bra.s donechan2
  10964.  
  10965. fbig2:
  10966.  tst.w d0
  10967.  beq.s donechan2
  10968.  asl.w #6,d1
  10969.  divs d0,d1
  10970.  lsl.w #8,d1
  10971.  adda.w d1,a2
  10972.  move.w d0,$dff0d8
  10973.  
  10974. donechan2:
  10975.  
  10976.  move.l Aupt2,a3
  10977.  move.l a3,$dff0d0
  10978.  move.l Auback2,Aupt2
  10979.  move.l a3,Auback2
  10980.  
  10981.  moveq #0,d0
  10982.  moveq #0,d1
  10983.  moveq #0,d2
  10984.  moveq #0,d3
  10985.  moveq #0,d4
  10986.  moveq #0,d5
  10987.  move.w #49,d7
  10988. loop3:
  10989.  move.l (a0)+,d0
  10990.  move.b (a1)+,d1
  10991.  move.b (a1)+,d2
  10992.  move.b (a1)+,d3
  10993.  move.b (a1)+,d4
  10994.  move.b (a2,d3.w),d5
  10995.  swap d5
  10996.  move.b (a2,d1.w),d5
  10997.  asl.l #8,d5
  10998.  move.b (a2,d2.w),d5
  10999.  swap d5
  11000.  move.b (a2,d4.w),d5
  11001.  add.l d5,d0
  11002.  move.l d0,(a3)+
  11003.  dbra d7,loop3
  11004.  
  11005.  tst.b swappedem
  11006.  beq.s .ok23
  11007.  exg a0,a1
  11008. .ok23:
  11009.  
  11010.  cmp.l Samp1endLEFT,a0
  11011.  blt.s .notoffendsamp3
  11012.  move.l #empty,a0
  11013.  move.l #emptyend,Samp1endLEFT
  11014.  move.b #0,vol1left
  11015.  st LEFTCHANDATA+1+4
  11016.  move.w #0,LEFTCHANDATA+2+4
  11017. .notoffendsamp3:
  11018.  
  11019.  cmp.l Samp3endLEFT,a1
  11020.  blt.s .notoffendsamp4
  11021.  move.l #empty,a1
  11022.  move.l #emptyend,Samp3endLEFT
  11023.  move.b #0,vol3left
  11024.  st LEFTCHANDATA+1+12
  11025.  move.w #0,LEFTCHANDATA+2+12
  11026. .notoffendsamp4:
  11027.  
  11028.  move.l a0,pos1LEFT
  11029.  move.l a1,pos3LEFT
  11030.  
  11031.  move.l pos1RIGHT,a0
  11032.  move.l pos3RIGHT,a1
  11033.  
  11034.  move.l Aupt3,a3
  11035.  move.l a3,$dff0c0
  11036.  move.l Auback3,Aupt3
  11037.  move.l a3,Auback3
  11038.  
  11039.  move.l #tab,a2
  11040.  
  11041.  moveq #0,d0
  11042.  moveq #0,d1
  11043.  move.b vol1right,d0
  11044.  move.b vol3right,d1
  11045.  cmp.b d1,d0
  11046.  slt.s swappedem
  11047.  bge.s fbig3
  11048.  
  11049.  exg a0,a1
  11050.  asl.w #6,d0
  11051.  divs d1,d0
  11052.  lsl.w #8,d0
  11053.  adda.w d0,a2
  11054.  move.w d1,$dff0c8
  11055.  bra.s donechan3
  11056.  
  11057. fbig3:
  11058.  tst.w d0
  11059.  beq.s donechan3
  11060.  asl.w #6,d1
  11061.  divs d0,d1
  11062.  lsl.w #8,d1
  11063.  adda.w d1,a2
  11064.  move.w d0,$dff0c8
  11065. donechan3:
  11066.  
  11067.  moveq #0,d0
  11068.  moveq #0,d1
  11069.  moveq #0,d2
  11070.  moveq #0,d3
  11071.  moveq #0,d4
  11072.  moveq #0,d5
  11073.  move.w #49,d7
  11074. loop4:
  11075.  move.l (a0)+,d0
  11076.  move.b (a1)+,d1
  11077.  move.b (a1)+,d2
  11078.  move.b (a1)+,d3
  11079.  move.b (a1)+,d4
  11080.  move.b (a2,d3.w),d5
  11081.  swap d5
  11082.  move.b (a2,d1.w),d5
  11083.  asl.l #8,d5
  11084.  move.b (a2,d2.w),d5
  11085.  swap d5
  11086.  move.b (a2,d4.w),d5
  11087.  add.l d5,d0
  11088.  move.l d0,(a3)+
  11089.  dbra d7,loop4
  11090.  
  11091.  tst.b swappedem
  11092.  beq.s .ok23
  11093.  exg a0,a1
  11094. .ok23:
  11095.  
  11096.  cmp.l Samp1endRIGHT,a0
  11097.  blt.s notoffendsamp3
  11098.  move.l #empty,a0
  11099.  move.l #emptyend,Samp1endRIGHT
  11100.  move.b #0,vol1right
  11101.  st RIGHTCHANDATA+1+4
  11102.  move.w #0,RIGHTCHANDATA+2+4
  11103. notoffendsamp3:
  11104.  
  11105.  cmp.l Samp3endRIGHT,a1
  11106.  blt.s notoffendsamp4
  11107.  move.l #empty,a1
  11108.  move.l #emptyend,Samp3endRIGHT
  11109.  move.b #0,vol3right
  11110.  st RIGHTCHANDATA+1+12
  11111.  move.w #0,RIGHTCHANDATA+2+12
  11112. notoffendsamp4:
  11113.  
  11114.  move.l a0,pos1RIGHT
  11115.  move.l a1,pos3RIGHT
  11116.  
  11117.  movem.l (a7)+,d0-d7/a0-a6
  11118.  tst.b counting
  11119.  beq .nostartcounter
  11120.  JSR STARTCOUNT
  11121. .nostartcounter:
  11122.  
  11123.  moveq #0,d0
  11124.  rts
  11125.  
  11126. ***********************************
  11127. * 4 channel sound routine
  11128. ***********************************
  11129.  
  11130. fourchannel:
  11131.  
  11132.  move.l #$dff000,a6
  11133.  
  11134.  btst #7,intreqrl(a6)
  11135.  beq.s nofinish0
  11136. ; move.w #0,LEFTCHANDATA+2
  11137. ; st LEFTCHANDATA+1
  11138.  move.l #null,$a0(a6)
  11139.  move.w #100,$a4(a6) 
  11140.  move.w #$0080,intreq(a6)
  11141. nofinish0:
  11142.  
  11143.  tst.b NoiseMade0pLEFT
  11144.  beq.s NoChan0sound
  11145.  
  11146.  move.l Samp0endLEFT,d0
  11147.  move.l pos0LEFT,d1
  11148.  sub.l d1,d0
  11149.  lsr.l #1,d0
  11150.  move.w d0,$a4(a6)
  11151.  move.l d1,$a0(a6)
  11152.  ext.l d0
  11153.  divs #100,d0
  11154.  move.w d0,playnull0
  11155.  move.w #$8201,dmacon(a6)
  11156.  moveq #0,d0
  11157.  move.b vol0left,d0
  11158.  move.w d0,$a8(a6)
  11159.  
  11160. NoChan0sound:
  11161.  
  11162. *****************************************
  11163. *****************************************
  11164.  
  11165.  btst #0,intreqr(a6)
  11166.  beq.s nofinish1
  11167.  move.l #null,$b0(a6)
  11168.  move.w #100,$b4(a6)
  11169.  move.w #$0100,intreq(a6)
  11170. nofinish1:
  11171.  
  11172.  tst.b NoiseMade0pRIGHT
  11173.  beq.s NoChan1sound
  11174.  
  11175.  move.l Samp0endRIGHT,d0
  11176.  move.l pos0RIGHT,d1
  11177.  sub.l d1,d0
  11178.  lsr.l #1,d0
  11179.  move.w d0,$b4(a6)
  11180.  move.l d1,$b0(a6)
  11181.  ext.l d0
  11182.  divs #100,d0
  11183.  move.w d0,playnull1
  11184.  move.w #$8202,dmacon(a6)
  11185.  moveq #0,d0
  11186.  move.b vol0right,d0
  11187.  move.w d0,$b8(a6)
  11188.  
  11189. NoChan1sound:
  11190.  
  11191. *****************************************
  11192. *****************************************
  11193.  
  11194.  btst #1,intreqr(a6)
  11195.  beq.s nofinish2
  11196.  move.l #null,$c0(a6)
  11197.  move.w #100,$c4(a6)
  11198.  move.w #$0200,intreq(a6)
  11199. nofinish2:
  11200.  
  11201.  tst.b NoiseMade1pRIGHT
  11202.  beq.s NoChan2sound
  11203.  
  11204.  move.l Samp1endRIGHT,d0
  11205.  move.l pos1RIGHT,d1
  11206.  sub.l d1,d0
  11207.  lsr.l #1,d0
  11208.  move.w d0,$c4(a6)
  11209.  ext.l d0
  11210.  divs #100,d0
  11211.  move.w d0,playnull2
  11212.  
  11213.  move.l d1,$c0(a6)
  11214.  move.w #$8204,dmacon(a6)
  11215.  moveq #0,d0
  11216.  move.b vol1right,d0
  11217.  move.w d0,$c8(a6)
  11218.  
  11219. NoChan2sound:
  11220.  
  11221. *****************************************
  11222. *****************************************
  11223.  
  11224.  btst #2,intreqr(a6)
  11225.  beq.s nofinish3
  11226.  move.l #null,$d0(a6)
  11227.  move.w #100,$d4(a6)
  11228.  move.w #$0400,intreq(a6)
  11229. nofinish3:
  11230.  
  11231.  tst.b NoiseMade1pLEFT
  11232.  beq.s NoChan3sound
  11233.  
  11234.  move.l Samp1endLEFT,d0
  11235.  move.l pos1LEFT,d1
  11236.  sub.l d1,d0
  11237.  lsr.l #1,d0
  11238.  move.w d0,$d4(a6)
  11239.  ext.l d0
  11240.  divs #100,d0
  11241.  move.w d0,playnull3
  11242.  move.l d1,$d0(a6)
  11243.  move.w #$8208,dmacon(a6)
  11244.  moveq #0,d0
  11245.  move.b vol1left,d0
  11246.  move.w d0,$d8(a6)
  11247.  
  11248. NoChan3sound:
  11249.  
  11250. nomorechannels:
  11251.  
  11252.  move.l NoiseMade0LEFT,NoiseMade0pLEFT
  11253.  move.l #0,NoiseMade0LEFT
  11254.  move.l NoiseMade0RIGHT,NoiseMade0pRIGHT
  11255.  move.l #0,NoiseMade0RIGHT
  11256.  
  11257. ; tst.b playnull0
  11258. ; beq.s .nnul
  11259. ; sub.b #1,playnull0
  11260. ; bra.s chan0still
  11261. ;.nnul:
  11262. ; 
  11263. ;chan0still:
  11264.  
  11265.  tst.b NoiseMade0pLEFT
  11266.  bne.s chan0still
  11267.  tst.w playnull0
  11268.  beq.s nnul0
  11269.  sub.w #1,playnull0
  11270.  bra.s chan0still
  11271. nnul0:
  11272.  move.w #0,LEFTCHANDATA+2
  11273.  st LEFTCHANDATA+1
  11274. chan0still:
  11275.  
  11276.  tst.b NoiseMade0pRIGHT
  11277.  bne.s chan1still    ;it'll never work
  11278.  tst.w playnull1
  11279.  beq.s nnul1
  11280.  sub.w #1,playnull1
  11281.  bra.s chan1still
  11282. nnul1:
  11283.  move.w #0,RIGHTCHANDATA+2
  11284.  st RIGHTCHANDATA+1
  11285. chan1still:
  11286.  
  11287.  tst.b NoiseMade1pRIGHT
  11288.  bne.s chan2still
  11289.  tst.w playnull2
  11290.  beq.s nnul2
  11291.  sub.w #1,playnull2
  11292.  bra.s chan2still
  11293. nnul2:
  11294.  move.w #0,RIGHTCHANDATA+2+4
  11295.  st RIGHTCHANDATA+1+4
  11296. chan2still:
  11297.  
  11298.  tst.b NoiseMade1pLEFT
  11299.  bne.s chan3still
  11300.  tst.w playnull3
  11301.  beq.s nnul3
  11302.  sub.w #1,playnull3
  11303.  bra.s chan3still
  11304. nnul3:
  11305.  move.w #0,LEFTCHANDATA+2+4
  11306.  st LEFTCHANDATA+1+4
  11307.  
  11308. chan3still:
  11309.  
  11310.  
  11311.  movem.l (a7)+,d0-d7/a0-a6
  11312.  
  11313.  moveq #0,d0
  11314.  rts
  11315.  
  11316. backbeat: dc.w 0
  11317.  
  11318. playnull0: dc.w 0
  11319. playnull1: dc.w 0
  11320. playnull2: dc.w 0
  11321. playnull3: dc.w 0
  11322.  
  11323. Samp0endRIGHT: dc.l emptyend
  11324. Samp1endRIGHT: dc.l emptyend
  11325. Samp2endRIGHT: dc.l emptyend
  11326. Samp3endRIGHT: dc.l emptyend
  11327. Samp0endLEFT: dc.l emptyend
  11328. Samp1endLEFT: dc.l emptyend
  11329. Samp2endLEFT: dc.l emptyend
  11330. Samp3endLEFT: dc.l emptyend
  11331.  
  11332. Aupt0: dc.l null
  11333. Auback0: dc.l null+500
  11334. Aupt2: dc.l null3
  11335. Auback2: dc.l null3+500
  11336. Aupt3: dc.l null4
  11337. Auback3: dc.l null4+500
  11338. Aupt1: dc.l null2
  11339. Auback1: dc.l null2+500
  11340.  
  11341. NoiseMade0LEFT: dc.b 0
  11342. NoiseMade1LEFT: dc.b 0
  11343. NoiseMade2LEFT: dc.b 0
  11344. NoiseMade3LEFT: dc.b 0
  11345. NoiseMade0pLEFT: dc.b 0
  11346. NoiseMade1pLEFT: dc.b 0
  11347. NoiseMade2pLEFT: dc.b 0
  11348. NoiseMade3pLEFT: dc.b 0
  11349. NoiseMade0RIGHT: dc.b 0
  11350. NoiseMade1RIGHT: dc.b 0
  11351. NoiseMade2RIGHT: dc.b 0
  11352. NoiseMade3RIGHT: dc.b 0
  11353. NoiseMade0pRIGHT: dc.b 0
  11354. NoiseMade1pRIGHT: dc.b 0
  11355. NoiseMade2pRIGHT: dc.b 0
  11356. NoiseMade3pRIGHT: dc.b 0
  11357.  
  11358. empty: ds.l 100
  11359. emptyend:
  11360.  
  11361. **************************************
  11362. * I want a routine to calculate all the
  11363. * info needed for the sound player to
  11364. * work, given say position of noise, volume
  11365. * and sample number.
  11366.  
  11367. Samplenum: dc.w 0
  11368. Noisex: dc.w 0
  11369. Noisez: dc.w 0
  11370. Noisevol: dc.w 0
  11371. chanpick: dc.w 0
  11372. IDNUM: dc.w 0
  11373. needleft: dc.b 0
  11374. needright: dc.b 0
  11375. STEREO: dc.b $0
  11376. even
  11377. prot6: dc.w 0
  11378.  
  11379.  even
  11380.  
  11381. CHANNELDATA:
  11382. LEFTCHANDATA:
  11383.  dc.l $00000000
  11384.  dc.l $00000000
  11385.  dc.l $FF000000
  11386.  dc.l $FF000000
  11387. RIGHTCHANDATA:
  11388.  dc.l $00000000
  11389.  dc.l $00000000
  11390.  dc.l $FF000000
  11391.  dc.l $FF000000
  11392.  
  11393. RIGHTPLAYEDTAB: ds.l 20
  11394. LEFTPLAYEDTAB: ds.l 20
  11395.  
  11396. MakeSomeNoise:
  11397.  
  11398. ; Plan for new sound handler:
  11399. ; It is sent a sample number,
  11400. ; a position relative to the
  11401. ; player, an id number and a volume.
  11402. ; Also notifplaying.
  11403.  
  11404. ; indirect inputs are the available
  11405. ; channel flags and whether or not
  11406. ; stereo sound is selected.
  11407.  
  11408. ; the algorithm must decide
  11409. ; whether the new sound is more
  11410. ; important than the ones already
  11411. ; playing. Thus an 'importance'
  11412. ; must be calculated, probably
  11413. ; using volume.
  11414.  
  11415. ; The output needs to be:
  11416.  
  11417. ; Write the pointers and volumes of
  11418. ; the sound channels
  11419.  
  11420.  
  11421.  tst.b notifplaying
  11422.  beq.s dontworry
  11423.  
  11424. ; find if we are already playing
  11425.  
  11426.  move.b IDNUM,d0
  11427.  move.w #7,d1
  11428.  lea CHANNELDATA,a3
  11429. findsameasme
  11430.  tst.b (a3)
  11431.  bne.s notavail
  11432.  cmp.b 1(a3),d0
  11433.  beq SameAsMe
  11434. notavail:
  11435.  add.w #4,a3
  11436.  dbra d1,findsameasme
  11437.  bra dontworry
  11438. SameAsMe
  11439.  rts
  11440.  
  11441. noiseloud: dc.w 0
  11442.  
  11443. dontworry:
  11444.  
  11445. ; Ok its fine for us to play a sound.
  11446. ; So calculate left/right volume.
  11447.  
  11448.  move.w Noisex,d1
  11449.  muls d1,d1
  11450.  move.w Noisez,d2
  11451.  muls d2,d2
  11452.  move.w #64,d3
  11453.  move.w #32767,noiseloud
  11454.  moveq #1,d0
  11455.  add.l d1,d2
  11456.  beq pastcalc
  11457.  
  11458.  move.w #31,d0
  11459. .findhigh
  11460.  btst d0,d2
  11461.  bne .foundhigh
  11462.  dbra d0,.findhigh
  11463. .foundhigh
  11464.  asr.w #1,d0
  11465.  clr.l d3
  11466.  bset d0,d3
  11467.  move.l d3,d0
  11468.  
  11469.  move.w d0,d3
  11470.  muls d3,d3    ; x*x
  11471.  sub.l d2,d3    ; x*x-a
  11472.  asr.l #1,d3    ; (x*x-a)/2
  11473.  divs d0,d3    ; (x*x-a)/2x
  11474.  sub.w d3,d0    ; second approx
  11475.  bgt .stillnot0
  11476.  move.w #1,d0
  11477. .stillnot0
  11478.  
  11479.  move.w d0,d3
  11480.  muls d3,d3
  11481.  sub.l d2,d3
  11482.  asr.l #1,d3
  11483.  divs d0,d3
  11484.  sub.w d3,d0    ; second approx
  11485.  bgt .stillnot02
  11486.  move.w #1,d0
  11487. .stillnot02
  11488.  
  11489.  move.w Noisevol,d3
  11490.  ext.l d3
  11491.  asl.l #6,d3
  11492.  cmp.l #32767,d3
  11493.  ble.s .nnnn
  11494.  move.l #32767,d3
  11495. .nnnn
  11496.  
  11497.  asr.w #2,d0
  11498.  addq #1,d0
  11499.  divs d0,d3
  11500.  
  11501.  move.w d3,noiseloud
  11502.  
  11503.  cmp.w #64,d3
  11504.  ble.s notooloud
  11505.  move.w #64,d3
  11506. notooloud:
  11507.  
  11508. pastcalc:
  11509.  
  11510.     ; d3 contains volume of noise.
  11511.     
  11512.  move.w d3,d4
  11513.  tst.b STEREO
  11514.  beq NOSTEREO
  11515.  
  11516.  move.w d3,d2
  11517.  muls Noisex,d2
  11518.  asl.w #2,d0
  11519.  divs d0,d2
  11520.  
  11521.  bgt.s quietleft
  11522.  add.w d2,d4
  11523.  bge.s donequiet
  11524.  move.w #0,d4
  11525.  bra.s donequiet
  11526. quietleft:
  11527.  sub.w d2,d3
  11528.  bge.s donequiet
  11529.  move.w #0,d3
  11530. donequiet:
  11531.  
  11532. ; d3=leftvol?
  11533. ; d4=rightvol?
  11534.  
  11535.  clr.w needleft
  11536.  
  11537.  cmp.b d3,d4
  11538.  bgt.s RightLouder
  11539.  
  11540. ; Left is louder; is it MUCH louder?
  11541.  
  11542.  st needleft
  11543.  move.w d3,d2
  11544.  sub.w d4,d2
  11545.  cmp.w #32,d2
  11546.  slt needright
  11547.  bra aboutsame
  11548.  
  11549. RightLouder:
  11550.  st needright
  11551.  move.w d4,d2
  11552.  sub.w d3,d2
  11553.  cmp.w #32,d2
  11554.  slt needleft
  11555.  
  11556. aboutsame:
  11557.  
  11558.  
  11559. ; Find least important sound on left
  11560.  
  11561.  move.l #0,a2
  11562.  move.l #0,d5
  11563.  move.w #32767,d2
  11564.  move.b IDNUM,d0
  11565.  lea LEFTCHANDATA,a3
  11566.  move.w #3,d1
  11567. FindLeftChannel
  11568.  tst.b (a3)
  11569.  bne.s .notactive
  11570.  cmp.b 1(a3),d0
  11571.  beq.s FOUNDLEFT
  11572.  cmp.w 2(a3),d2
  11573.  blt.s .notactive
  11574.  move.w 2(a3),d2
  11575.  move.l a3,a2
  11576.  move.w d5,d6
  11577.  
  11578. .notactive:
  11579.  add.w #4,a3
  11580.  add.w #1,d5
  11581.  dbra d1,FindLeftChannel
  11582.  move.l a2,a3
  11583.  bra.s gopastleft
  11584. FOUNDLEFT:
  11585.  move.w d5,d6
  11586. gopastleft:
  11587.  tst.l a3
  11588.  bne.s FOUNDALEFT
  11589. NONOISE:
  11590.  rts
  11591. FOUNDALEFT:
  11592.  
  11593.  cmp.w noiseloud,d3
  11594.  bge.s NONOISE
  11595.  
  11596. ; d6 = channel number
  11597.  move.b d0,1(a3)
  11598.  move.w d3,2(a3)
  11599.  
  11600.  move.w Samplenum,d5
  11601.  move.l #SampleList,a3
  11602.  move.l (a3,d5.w*8),a1
  11603.  move.l 4(a3,d5.w*8),a2
  11604.  
  11605.  tst.b d6
  11606.  seq NoiseMade0LEFT
  11607.  beq.s .chan0
  11608.  cmp.b #2,d6
  11609.  slt NoiseMade1LEFT
  11610.  blt .chan1
  11611.  seq NoiseMade2LEFT
  11612.  beq .chan2
  11613.  st NoiseMade3LEFT
  11614.  
  11615.  move.b d5,LEFTPLAYEDTAB+9
  11616.  move.b d3,LEFTPLAYEDTAB+1+9
  11617.  move.b d4,LEFTPLAYEDTAB+2+9
  11618.  move.b d3,vol3left
  11619.  move.l a1,pos3LEFT
  11620.  move.l a2,Samp3endLEFT
  11621.  bra dorightchan
  11622.  
  11623. .chan0: 
  11624.  move.b d5,LEFTPLAYEDTAB
  11625.  move.b d3,LEFTPLAYEDTAB+1
  11626.  move.b d4,LEFTPLAYEDTAB+2
  11627.  move.l a1,pos0LEFT
  11628.  move.l a2,Samp0endLEFT
  11629.  move.b d3,vol0left
  11630.  bra dorightchan
  11631.  
  11632. .chan1:
  11633.  move.b d5,LEFTPLAYEDTAB+3
  11634.  move.b d3,LEFTPLAYEDTAB+1+3
  11635.  move.b d4,LEFTPLAYEDTAB+2+3
  11636.  move.b d3,vol1left
  11637.  move.l a1,pos1LEFT
  11638.  move.l a2,Samp1endLEFT
  11639.  bra dorightchan
  11640.  
  11641. .chan2: 
  11642.  move.b d5,LEFTPLAYEDTAB+6
  11643.  move.b d3,LEFTPLAYEDTAB+1+6
  11644.  move.b d4,LEFTPLAYEDTAB+2+6
  11645.  move.l a1,pos2LEFT
  11646.  move.l a2,Samp2endLEFT
  11647.  move.b d3,vol2left
  11648.  
  11649. dorightchan:
  11650.  
  11651. ; Find least important sound on right
  11652.  
  11653.  move.l #0,a2
  11654.  move.l #0,d5
  11655.  move.w #10000,d2
  11656.  move.b IDNUM,d0
  11657.  lea RIGHTCHANDATA,a3
  11658.  move.w #3,d1
  11659. FindRightChannel
  11660.  tst.b (a3)
  11661.  bne.s .notactive
  11662.  cmp.b 1(a3),d0
  11663.  beq.s FOUNDRIGHT
  11664.  cmp.w 2(a3),d2
  11665.  blt.s .notactive
  11666.  move.w 2(a3),d2
  11667.  move.l a3,a2
  11668.  move.w d5,d6
  11669.  
  11670. .notactive:
  11671.  add.w #4,a3
  11672.  add.w #1,d5
  11673.  dbra d1,FindRightChannel
  11674.  move.l a2,a3
  11675.  bra.s gopastright
  11676. FOUNDRIGHT:
  11677.  move.w d5,d6
  11678. gopastright:
  11679.  tst.l a3
  11680.  bne.s FOUNDARIGHT
  11681.  rts
  11682. FOUNDARIGHT:
  11683.  
  11684. ; d6 = channel number
  11685.  move.b d0,1(a3)
  11686.  move.w d3,2(a3)
  11687.  
  11688.  move.w Samplenum,d5
  11689.  move.l #SampleList,a3
  11690.  move.l (a3,d5.w*8),a1
  11691.  move.l 4(a3,d5.w*8),a2
  11692.  
  11693.  tst.b d6
  11694.  seq NoiseMade0RIGHT
  11695.  beq.s .chan0
  11696.  cmp.b #2,d6
  11697.  slt NoiseMade1RIGHT
  11698.  blt .chan1
  11699.  seq NoiseMade2RIGHT
  11700.  beq .chan2
  11701.  st NoiseMade3RIGHT
  11702.  
  11703.  move.b d5,RIGHTPLAYEDTAB+9
  11704.  move.b d3,RIGHTPLAYEDTAB+1+9
  11705.  move.b d4,RIGHTPLAYEDTAB+2+9
  11706.  move.b d4,vol3right
  11707.  move.l a1,pos3RIGHT
  11708.  move.l a2,Samp3endRIGHT
  11709.  rts
  11710.  
  11711. .chan0: 
  11712.  move.b d5,RIGHTPLAYEDTAB
  11713.  move.b d3,RIGHTPLAYEDTAB+1
  11714.  move.b d4,RIGHTPLAYEDTAB+2
  11715.  move.l a1,pos0RIGHT
  11716.  move.l a2,Samp0endRIGHT
  11717.  move.b d4,vol0right
  11718.  rts
  11719.  
  11720. .chan1:
  11721.  move.b d5,RIGHTPLAYEDTAB+3
  11722.  move.b d3,RIGHTPLAYEDTAB+1+3
  11723.  move.b d4,RIGHTPLAYEDTAB+2+3
  11724.  move.b d3,vol1right
  11725.  move.l a1,pos1RIGHT
  11726.  move.l a2,Samp1endRIGHT
  11727.  rts
  11728.  
  11729. .chan2: 
  11730.  move.b d5,RIGHTPLAYEDTAB+6
  11731.  move.b d3,RIGHTPLAYEDTAB+1+6
  11732.  move.b d4,RIGHTPLAYEDTAB+2+6
  11733.  move.l a1,pos2RIGHT
  11734.  move.l a2,Samp2endRIGHT
  11735.  move.b d3,vol2right
  11736.  rts
  11737.  
  11738. NOSTEREO:
  11739.  move.l #0,a2
  11740.  move.l #-1,d5
  11741.  move.w #32767,d2
  11742.  move.b IDNUM,d0
  11743.  lea CHANNELDATA,a3
  11744.  move.w #7,d1
  11745. FindChannel
  11746.  tst.b (a3)
  11747.  bne.s .notactive
  11748.  cmp.b 1(a3),d0
  11749.  beq.s FOUNDMYCHAN
  11750.  cmp.w 2(a3),d2
  11751.  blt.s .notactive
  11752.  move.w 2(a3),d2
  11753.  move.l a3,a2
  11754.  move.w d5,d6
  11755.  add.w #1,d6
  11756.  
  11757. .notactive:
  11758.  add.w #4,a3
  11759.  add.w #1,d5
  11760.  dbra d1,FindChannel
  11761.  
  11762.  move.l a2,a3
  11763.  bra.s gopastchan
  11764.  
  11765. FOUNDMYCHAN:
  11766.  move.w 2(a3),d2
  11767.  
  11768. FOUNDCHAN:
  11769.  move.w d5,d6
  11770.  add.w #1,d6
  11771. gopastchan:
  11772.  tst.w d6
  11773.  bge.s FOUNDACHAN
  11774. tooquiet:
  11775.  rts
  11776. FOUNDACHAN:
  11777.  
  11778. ; d6 = channel number
  11779.  
  11780.  cmp.w noiseloud,d2
  11781.  bgt.s tooquiet
  11782.  
  11783.  move.b d0,1(a3)
  11784.  move.w noiseloud,2(a3)
  11785.  
  11786.  move.w Samplenum,d5
  11787.  move.l #SampleList,a3
  11788.  move.l (a3,d5.w*8),a1
  11789.  move.l 4(a3,d5.w*8),a2
  11790.  
  11791.  tst.b d6
  11792.  beq .chan0
  11793.  cmp.b #2,d6
  11794.  blt .chan1
  11795.  beq .chan2
  11796.  cmp.b #4,d6
  11797.  blt .chan3
  11798.  beq .chan4
  11799.  cmp.b #6,d6
  11800.  blt .chan5
  11801.  beq .chan6
  11802.  st NoiseMade3RIGHT
  11803.  
  11804.  move.b d5,RIGHTPLAYEDTAB+9
  11805.  move.b d3,RIGHTPLAYEDTAB+1+9
  11806.  move.b d4,RIGHTPLAYEDTAB+2+9
  11807.  move.b d4,vol3right
  11808.  move.l a1,pos3RIGHT
  11809.  move.l a2,Samp3endRIGHT
  11810.  rts
  11811.  
  11812. .chan3:
  11813.  st NoiseMade3LEFT
  11814.  move.b d5,LEFTPLAYEDTAB+9
  11815.  move.b d3,LEFTPLAYEDTAB+1+9
  11816.  move.b d4,LEFTPLAYEDTAB+2+9
  11817.  move.b d3,vol3left
  11818.  move.l a1,pos3LEFT
  11819.  move.l a2,Samp3endLEFT
  11820.  bra dorightchan
  11821.  
  11822. .chan0: 
  11823.  st NoiseMade0LEFT
  11824.  move.b d5,LEFTPLAYEDTAB
  11825.  move.b d3,LEFTPLAYEDTAB+1
  11826.  move.b d4,LEFTPLAYEDTAB+2
  11827.  move.l a1,pos0LEFT
  11828.  move.l a2,Samp0endLEFT
  11829.  move.b d3,vol0left
  11830.  rts
  11831.  
  11832. .chan1:
  11833.  st NoiseMade1LEFT
  11834.  move.b d5,LEFTPLAYEDTAB+3
  11835.  move.b d3,LEFTPLAYEDTAB+1+3
  11836.  move.b d4,LEFTPLAYEDTAB+2+3
  11837.  move.b d3,vol1left
  11838.  move.l a1,pos1LEFT
  11839.  move.l a2,Samp1endLEFT
  11840.  rts
  11841.  
  11842. .chan2: 
  11843.  st NoiseMade2LEFT
  11844.  move.b d5,LEFTPLAYEDTAB+6
  11845.  move.b d3,LEFTPLAYEDTAB+1+6
  11846.  move.b d4,LEFTPLAYEDTAB+2+6
  11847.  move.l a1,pos2LEFT
  11848.  move.l a2,Samp2endLEFT
  11849.  move.b d3,vol2left
  11850.  rts
  11851.  
  11852. .chan4: 
  11853.  st NoiseMade0RIGHT
  11854.  move.b d5,RIGHTPLAYEDTAB
  11855.  move.b d3,RIGHTPLAYEDTAB+1
  11856.  move.b d4,RIGHTPLAYEDTAB+2
  11857.  move.l a1,pos0RIGHT
  11858.  move.l a2,Samp0endRIGHT
  11859.  move.b d4,vol0right
  11860.  rts
  11861.  
  11862. .chan5:
  11863.  st NoiseMade1RIGHT
  11864.  move.b d5,RIGHTPLAYEDTAB+3
  11865.  move.b d3,RIGHTPLAYEDTAB+1+3
  11866.  move.b d4,RIGHTPLAYEDTAB+2+3
  11867.  move.b d3,vol1right
  11868.  move.l a1,pos1RIGHT
  11869.  move.l a2,Samp1endRIGHT
  11870.  rts
  11871.  
  11872. .chan6: 
  11873.  st NoiseMade2RIGHT
  11874.  move.b d5,RIGHTPLAYEDTAB+6
  11875.  move.b d3,RIGHTPLAYEDTAB+1+6
  11876.  move.b d4,RIGHTPLAYEDTAB+2+6
  11877.  move.l a1,pos2RIGHT
  11878.  move.l a2,Samp2endRIGHT
  11879.  move.b d3,vol2right
  11880.  rts
  11881.  
  11882. SampleList:
  11883.  dc.l Scream,EndScream
  11884.  dc.l Shoot,EndShoot
  11885.  dc.l Munch,EndMunch
  11886.  dc.l PooGun,EndPooGun
  11887.  dc.l Collect,EndCollect
  11888. ;5
  11889.  dc.l DoorNoise,EndDoorNoise
  11890.  dc.l 0,0
  11891.  dc.l Stomp,EndStomp
  11892.  dc.l LowScream,EndLowScream
  11893.  dc.l BaddieGun,EndBaddieGun
  11894. ;10
  11895.  dc.l SwitchNoise,EndSwitch
  11896.  dc.l Reload,EndReload
  11897.  dc.l NoAmmo,EndNoAmmo
  11898.  dc.l Splotch,EndSplotch
  11899.  dc.l SplatPop,EndSplatPop
  11900. ;15
  11901.  dc.l Boom,EndBoom
  11902.  dc.l Hiss,EndHiss
  11903.  dc.l Howl1,EndHowl1
  11904.  dc.l Howl2,EndHowl2
  11905.  dc.l Pant,EndPant
  11906. ;20
  11907.  dc.l Whoosh,EndWhoosh
  11908.  dc.l ROAR,EndROAR
  11909.  dc.l whoosh,Endwhoosh
  11910.  dc.l 0,0
  11911.  dc.l 0,0
  11912.  dc.l 0,0
  11913.  dc.l 0,0
  11914.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  11915.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  11916.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  11917.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  11918.  
  11919.  dc.l 0
  11920.  
  11921. storeval: dc.w 0
  11922.  
  11923.  include "ab3:source_4000/wallchunk.s"
  11924.  include "ab3:source_4000/newloadfromdisk.s"
  11925.  include "ab3:source_4000/screensetup.s"
  11926.  include "ab3:source_4000/CONTROLLOOP.s"
  11927.  
  11928.  
  11929.  
  11930.  
  11931. saveinters:  
  11932.  dc.w 0
  11933.  
  11934. z: dc.w 10
  11935.  
  11936. notifplaying:
  11937.  dc.w 0
  11938.  
  11939. audpos1: dc.w 0
  11940. audpos1b: dc.w 0
  11941. audpos2: dc.w 0
  11942. audpos2b: dc.w 0
  11943. audpos3: dc.w 0
  11944. audpos3b: dc.w 0
  11945. audpos4: dc.w 0
  11946. audpos4b: dc.w 0
  11947.  
  11948. vol0left: dc.w 0
  11949. vol0right: dc.w 0
  11950. vol1left: dc.w 0
  11951. vol1right: dc.w 0
  11952. vol2left: dc.w 0
  11953. vol2right: dc.w 0
  11954. vol3left: dc.w 0
  11955. vol3right: dc.w 0
  11956.  
  11957. pos: dc.l 0
  11958.  
  11959. pos0LEFT: dc.l empty
  11960. pos1LEFT: dc.l empty
  11961. pos2LEFT: dc.l empty
  11962. pos3LEFT: dc.l empty
  11963. pos0RIGHT: dc.l empty
  11964. pos1RIGHT: dc.l empty
  11965. pos2RIGHT: dc.l empty
  11966. pos3RIGHT: dc.l empty
  11967.  
  11968. numtodo dc.w 0
  11969.  
  11970. npt: dc.w 0
  11971.  
  11972. pretab:
  11973. val SET 0
  11974.  REPT 128
  11975.  dc.b val
  11976. val SET val+1
  11977.  ENDR
  11978. val SET -128
  11979.  REPT 128
  11980.  dc.b val
  11981. val SET val+1
  11982.  ENDR 
  11983.  
  11984. tab:
  11985.  ifeq CHEESEY
  11986.  ds.b 256*65
  11987.  endc
  11988.  
  11989. test: dc.l 0
  11990.  ds.l 30
  11991.  
  11992.  
  11993.  even
  11994. ConstCols:
  11995. ; incbin "ConstCols"
  11996.  even
  11997. Smoothscalecols:
  11998. ; incbin "smoothbumppalscaled"
  11999.  even
  12000. SmoothTile:
  12001. ; incbin "smoothbumptile"
  12002.  even
  12003. Bumpscalecols:
  12004. ; incbin "Bumppalscaled"
  12005.  even
  12006. Bumptile:
  12007. ; incbin "bumptile"
  12008.  even
  12009. scalecols: ;incbin "bytepixpalscaled"
  12010.  even
  12011. ;floorscalecols:
  12012. ; incbin "floor256pal"
  12013. ; ds.w 256*4
  12014.  
  12015.  even
  12016. PaletteAddr: dc.l 0
  12017. ChunkAddr: dc.l 0
  12018. ;walltiles:
  12019. ; dc.l GreenMechanicWALL
  12020. ; dc.l BlueGreyMetalWALL
  12021. ; dc.l TechnoDetailWALL
  12022. ; dc.l BlueStoneWALL
  12023. ; dc.l RedAlertWALL
  12024. ; dc.l RockWALL
  12025. ;
  12026. ;GreenMechanicWALL: incbin "ab3:includes/walls/greenmechanic.wad"
  12027. ;BlueGreyMetalWALL: incbin "ab3:includes/walls/BlueGreyMetal.wad"
  12028. ;TechnoDetailWALL: incbin "ab3:includes/walls/TechnoDetail.wad"
  12029. ;BlueStoneWALL: incbin "ab3:includes/walls/bluestone.wad"
  12030. ;RedAlertWALL: incbin "ab3:includes/walls/redalert.wad"
  12031. ;RockWALL: incbin "ab3:includes/walls/rock.wad"
  12032.  
  12033. floortile:
  12034.  dc.l 0
  12035. ; incbin "floortile" 
  12036.  even
  12037. wallrouts:
  12038. ; incbin "2x2WallDraw" 
  12039.  CNOP 0,64
  12040.  
  12041.  ifeq CHEESEY 
  12042. BackPicture:
  12043.  incbin "rawback"
  12044. EndBackPicture:
  12045.  endc
  12046.  
  12047. drawpt: dc.l 0
  12048. olddrawpt: dc.l 0
  12049. frompt: dc.l 0 
  12050.  
  12051. SineTable:
  12052.  incbin "bigsine"
  12053.  
  12054. angspd: dc.w 0
  12055. flooryoff: dc.w 0
  12056. xoff: dc.l 0
  12057. yoff: dc.l 0
  12058. yvel: dc.l 0
  12059. zoff: dc.l 0
  12060. tyoff: dc.l 0
  12061. xspdval: dc.l 0
  12062. zspdval: dc.l 0
  12063. Zone: dc.w 0
  12064.  
  12065. PLR1: dc.b $ff
  12066.  even
  12067. PLR1_energy: dc.w 191
  12068. PLR1_GunSelected: dc.w 0
  12069. PLR1_cosval: dc.w 0
  12070. PLR1_sinval: dc.w 0
  12071. PLR1_angpos: dc.w 0
  12072. PLR1_angspd: dc.w 0
  12073. PLR1_xoff: dc.l 0
  12074. PLR1_yoff: dc.l 0
  12075. PLR1_yvel: dc.l 0
  12076. PLR1_zoff: dc.l 0
  12077. PLR1_tyoff: dc.l 0
  12078. PLR1_xspdval: dc.l 0
  12079. PLR1_zspdval: dc.l 0
  12080. PLR1_Zone: dc.w 0
  12081. PLR1_Roompt: dc.l 0
  12082. PLR1_FloorSpd: dc.l 0
  12083. PLR2_FloorSpd: dc.l 0
  12084. PLR1_OldRoompt: dc.l 0
  12085. PLR1_PointsToRotatePtr: dc.l 0
  12086. PLR1_ListOfGraphRooms: dc.l 0
  12087. PLR1_oldxoff: dc.l 0
  12088. PLR1_oldzoff: dc.l 0
  12089. PLR1_StoodInTop: dc.b 0
  12090.  even
  12091. PLR1_height: dc.l 0
  12092. PLR1_RoomBright: dc.w 0
  12093.  
  12094. DOUBLEWIDTH: dc.b $0,0
  12095. DOUBLEHEIGHT: dc.b 0,0
  12096. PLR1_TELEPORTED: dc.w 0
  12097. PLR2_TELEPORTED: dc.w 0
  12098.  
  12099.  ds.w 4
  12100.  
  12101. OLDX1: dc.l 0
  12102. OLDX2: dc.l 0
  12103. OLDZ1: dc.l 0
  12104. OLDZ2: dc.l 0
  12105.  
  12106. XDIFF1: dc.l 0
  12107. ZDIFF1: dc.l 0
  12108. XDIFF2: dc.l 0
  12109. ZDIFF2: dc.l 0
  12110.  
  12111. PLR1s_cosval: dc.w 0
  12112. PLR1s_sinval: dc.w 0
  12113. PLR1s_angpos: dc.w 0
  12114. PLR1s_angspd: dc.w 0
  12115. PLR1s_xoff: dc.l 0
  12116. PLR1s_yoff: dc.l 0
  12117. PLR1s_yvel: dc.l 0
  12118. PLR1s_zoff: dc.l 0
  12119. PLR1s_tyoff: dc.l 0
  12120. PLR1s_xspdval: dc.l 0
  12121. PLR1s_zspdval: dc.l 0
  12122. PLR1s_Zone: dc.w 0
  12123. PLR1s_Roompt: dc.l 0
  12124. PLR1s_OldRoompt: dc.l 0
  12125. PLR1s_PointsToRotatePtr: dc.l 0
  12126. PLR1s_ListOfGraphRooms: dc.l 0
  12127. PLR1s_oldxoff: dc.l 0
  12128. PLR1s_oldzoff: dc.l 0
  12129. PLR1s_height: dc.l 0
  12130. PLR1s_targheight: dc.l 0
  12131.  
  12132. p1_xoff: dc.l 0
  12133. p1_zoff: dc.l 0
  12134. p1_yoff: dc.l 0
  12135. p1_height: dc.l 0
  12136. p1_angpos: dc.w 0
  12137. p1_bobble: dc.w 0
  12138. p1_clicked: dc.b 0
  12139. p1_spctap: dc.b 0
  12140. p1_ducked: dc.b 0
  12141. p1_gunselected: dc.b 0
  12142. p1_fire: dc.b 0
  12143.  even
  12144. p1_holddown: dc.w 0
  12145.  
  12146.  ds.w 4
  12147.  
  12148. PLR2: dc.b $ff
  12149.  even
  12150. PLR2_GunSelected: dc.w 0
  12151. PLR2_energy: dc.w 191
  12152. PLR2_cosval: dc.w 0
  12153. PLR2_sinval: dc.w 0
  12154. PLR2_angpos: dc.w 0
  12155. PLR2_angspd: dc.w 0
  12156. PLR2_xoff: dc.l 0
  12157. PLR2_yoff: dc.l 0
  12158. PLR2_yvel: dc.l 0
  12159. PLR2_zoff: dc.l 0
  12160. PLR2_tyoff: dc.l 0
  12161. PLR2_xspdval: dc.l 0
  12162. PLR2_zspdval: dc.l 0
  12163. PLR2_Zone: dc.w 0
  12164. PLR2_Roompt: dc.l 0
  12165. PLR2_OldRoompt: dc.l 0
  12166. PLR2_PointsToRotatePtr: dc.l 0
  12167. PLR2_ListOfGraphRooms: dc.l 0
  12168. PLR2_oldxoff: dc.l 0
  12169. PLR2_oldzoff: dc.l 0
  12170. PLR2_StoodInTop: dc.b 0
  12171.  even
  12172. PLR2_height: dc.l 0
  12173.  
  12174.  ds.w 4
  12175.  
  12176. PLR2s_cosval: dc.w 0
  12177. PLR2s_sinval: dc.w 0
  12178. PLR2s_angpos: dc.w 0
  12179. PLR2s_angspd: dc.w 0
  12180. PLR2s_xoff: dc.l 0
  12181. PLR2s_yoff: dc.l 0
  12182. PLR2s_yvel: dc.l 0
  12183. PLR2s_zoff: dc.l 0
  12184. PLR2s_tyoff: dc.l 0
  12185. PLR2s_xspdval: dc.l 0
  12186. PLR2s_zspdval: dc.l 0
  12187. PLR2s_Zone: dc.w 0
  12188. PLR2s_Roompt: dc.l 0
  12189. PLR2s_OldRoompt: dc.l 0
  12190. PLR2s_PointsToRotatePtr: dc.l 0
  12191. PLR2s_ListOfGraphRooms: dc.l 0
  12192. PLR2s_oldxoff: dc.l 0
  12193. PLR2s_oldzoff: dc.l 0
  12194. PLR2s_height: dc.l 0
  12195. PLR2s_targheight: dc.l 0
  12196.  
  12197.  ds.w 4
  12198.  
  12199. p2_xoff: dc.l 0
  12200. p2_zoff: dc.l 0
  12201. p2_yoff: dc.l 0
  12202. p2_height: dc.l 0
  12203. p2_angpos: dc.w 0
  12204. p2_bobble: dc.w 0
  12205. p2_clicked: dc.b 0
  12206. p2_spctap: dc.b 0
  12207. p2_ducked: dc.b 0
  12208. p2_gunselected: dc.b 0
  12209. p2_fire: dc.b 0
  12210.  even
  12211. p2_holddown: dc.w 0
  12212.  
  12213. liftanimtab:
  12214.  
  12215. endliftanimtab:
  12216.  
  12217. glassball:
  12218. ; incbin "glassball.inc"
  12219.  
  12220. endglass
  12221. glassballpt: dc.l glassball
  12222.  
  12223. rndtab: ; incbin "randfile"
  12224. endrnd: 
  12225.  
  12226. brightanimtab:
  12227. ; dcb.w 200,20
  12228. ; dc.w 5
  12229. ; dc.w 10,20
  12230. ; dc.w 5
  12231. ; dcb.w 30,20
  12232. ; dc.w 7,10,10,5,10,0,5,6,5,6,5,6,5,6,0
  12233. ; dcb.w 40,0
  12234. ; dc.w 1,2,3,2,3,2,3,2,3,2,3,2,3,0
  12235. ; dcb.w 300,0
  12236. ; dc.w 1,0,1,0,2,2,2,5,5,5,5,5,5,5,5,5,6,10
  12237. ; dc.w -1
  12238.  
  12239. Roompt: dc.l 0
  12240. OldRoompt: dc.l 0
  12241.  
  12242. *****************************************************************
  12243.  *
  12244.  include "AB3:source_4000/LevelData2"
  12245.  *
  12246. *****************************************************************
  12247.  
  12248.  
  12249. wallpt: dc.l 0
  12250. floorpt: dc.l 0
  12251.  
  12252. Rotated:
  12253.  ds.l 2*800 
  12254. ObjRotated:
  12255.  ds.l 2*500
  12256.  
  12257. OnScreen:
  12258.  ds.l 2*800 
  12259.  
  12260. startwait: dc.w 0
  12261. endwait: dc.w 0
  12262.  
  12263. ;Faces:
  12264. ; incbin "faces2raw"
  12265.  
  12266. LINKS: dc.l 0
  12267. FLYLINKS: dc.l 0
  12268. *************************************************************
  12269.  
  12270. consttab:
  12271.  incbin "constantfile"
  12272.  
  12273. *******************************************************************
  12274.  
  12275.  
  12276.  
  12277. *********************************
  12278.  
  12279. ; include "ab3:source_4000/loadmod.a"
  12280. ; include "ab3:source_4000/proplayer.a"
  12281.  
  12282.  
  12283. darkentab: 
  12284. ;val SET 0
  12285. ; REPT 256
  12286. ; dc.b val
  12287. ;val SET val+1
  12288. ; ENDR
  12289. ; incbin "darkenfile"
  12290.  
  12291. MIDDLEX: dc.w 0
  12292. RIGHTX: dc.w 192
  12293. FULLSCR: dc.w 0
  12294.  
  12295. SHADINGTABLE: incbin "SHADEFILE" 
  12296.  
  12297. ******************************************
  12298. * Link file !*****************************
  12299. ******************************************
  12300.  
  12301. LINKSPACE:
  12302. ; ds.l 22500
  12303. ; incbin "ab3:includes/test.lnk"
  12304.  
  12305. LINKname:
  12306.  dc.b "ab3:includes/test.lnk",0
  12307.  
  12308. LINKFILE:
  12309.  dc.l LINKSPACE
  12310.  
  12311. ******************************************
  12312.  
  12313.  
  12314. brightentab:
  12315.  incbin "brightenfile"
  12316. WorkSpace:
  12317.  ds.l 8192 
  12318. waterfile:
  12319.  incbin "waterfile"
  12320.  
  12321.  SECTION ffff,CODE_C
  12322.  
  12323. nullspr: dc.l 0
  12324.  
  12325.  cnop 0,8
  12326. ;borders:
  12327. ; incbin "newleftbord"
  12328. ; incbin "newrightbord"
  12329.  
  12330. health: 
  12331. ;incbin "healthstrip"
  12332. Ammunition: 
  12333. ;incbin "ammostrip"
  12334. healthpal: 
  12335. ;incbin "healthpal"
  12336. PanelKeys: 
  12337. ;incbin "greenkey"
  12338. ; incbin "redkey"
  12339. ; incbin "yellowkey"
  12340. ; incbin "bluekey"
  12341.  
  12342. null: ds.w 100
  12343. null2: ds.w 100
  12344. null3: ds.w 100
  12345. null4: ds.w 100
  12346.  
  12347.  
  12348. Blurbfield:
  12349.  
  12350.  dc.w bpl1ptl
  12351. bl1l: dc.w 0
  12352.  dc.w bpl1pth
  12353. bl1h: dc.w 0
  12354.  
  12355.  dc.w diwstart,$2c81
  12356.  dc.w diwstop,$1cc1
  12357.  dc.w ddfstart,$38
  12358.  dc.w ddfstop,$b8
  12359.  dc.w bplcon0,$9201
  12360.  dc.w bplcon1,0
  12361.  dc.w $106,$c40
  12362. blcols:
  12363.  dc.w col0,0
  12364.  dc.w col1,$fff
  12365.  
  12366.  dc.w $108,0
  12367.  dc.w $10a,0
  12368.  
  12369.  dc.w $ffff,$fffe
  12370.  dc.w $ffff,$fffe
  12371.  
  12372. nullline:
  12373.  ds.b 80    
  12374.  
  12375.  include "ab3:source_4000/titlecop.s"
  12376.  
  12377. bigfield:    
  12378.                 ; Start of our copper list.
  12379.  dc.w dmacon,$8020
  12380.  dc.w intreq,$8011
  12381.  dc.w $1fc,$f
  12382.  dc.w diwstart
  12383. winstart: dc.w $2c81
  12384.  dc.w diwstop
  12385. winstop: dc.w $2cc1
  12386.  dc.w ddfstart
  12387. fetchstart: dc.w $38
  12388.  dc.w ddfstop
  12389. fetchstop: dc.w $b8
  12390.  
  12391. bordercols:
  12392.  incbin "borderpal"
  12393.  
  12394.  dc.w spr0ptl
  12395. s0l:
  12396.  dc.w 0
  12397.  dc.w spr0pth
  12398. s0h:
  12399.  dc.w 0
  12400.  dc.w spr1ptl
  12401. s1l:
  12402.  dc.w 0
  12403.  dc.w spr1pth
  12404. s1h:
  12405.  dc.w 0
  12406.  dc.w spr2ptl
  12407. s2l:
  12408.  dc.w 0
  12409.  dc.w spr2pth
  12410. s2h:
  12411.  dc.w 0
  12412.  dc.w spr3ptl
  12413. s3l:
  12414.  dc.w 0
  12415.  dc.w spr3pth
  12416. s3h:
  12417.  dc.w 0
  12418.  dc.w spr4ptl
  12419. s4l:
  12420.  dc.w 0
  12421.  dc.w spr4pth
  12422. s4h:
  12423.  dc.w 0
  12424.  dc.w spr5ptl
  12425. s5l:
  12426.  dc.w 0
  12427.  dc.w spr5pth
  12428. s5h:
  12429.  dc.w 0
  12430.  dc.w spr6ptl
  12431. s6l:
  12432.  dc.w 0
  12433.  dc.w spr6pth
  12434. s6h:
  12435.  dc.w 0
  12436.  dc.w spr7ptl
  12437. s7l:
  12438.  dc.w 0
  12439.  dc.w spr7pth
  12440. s7h:
  12441.  dc.w 0
  12442.  
  12443. ; dc.w $106,$c42
  12444. ; incbin "borderpal"
  12445.  
  12446.  dc.w $106,$c42
  12447.  
  12448.  dc.w bplcon0,$0211
  12449.  dc.w bplcon1
  12450. smoff:
  12451.  dc.w $0
  12452.  
  12453.  dc.w $108
  12454. modulo: dc.w 0
  12455.  dc.w $10a,0
  12456.  
  12457.  dc.w $1001,$ff00
  12458.  dc.w intreq,$11
  12459.  
  12460. PALETTESPACE:
  12461.  dcb.l 528,$1fe0000
  12462.  
  12463.  dc.w $2001,$ff00
  12464.  
  12465.  dc.w bpl1pth
  12466. pl1h
  12467.  dc.w 0
  12468.  
  12469.  dc.w bpl1ptl
  12470. pl1l
  12471.  dc.w 0
  12472.  
  12473.  dc.w bpl2pth
  12474. pl2h
  12475.  dc.w 0
  12476.  
  12477.  dc.w bpl2ptl
  12478. pl2l
  12479.  dc.w 0
  12480.  
  12481.  dc.w bpl3pth
  12482. pl3h
  12483.  dc.w 0
  12484.  
  12485.  dc.w bpl3ptl
  12486. pl3l
  12487.  dc.w 0
  12488.  
  12489.  dc.w bpl4pth
  12490. pl4h
  12491.  dc.w 0
  12492.  
  12493.  dc.w bpl4ptl
  12494. pl4l
  12495.  dc.w 0
  12496.  
  12497.  dc.w bpl5pth
  12498. pl5h
  12499.  dc.w 0
  12500.  
  12501.  dc.w bpl5ptl
  12502. pl5l
  12503.  dc.w 0
  12504.  
  12505.  dc.w bpl6pth
  12506. pl6h
  12507.  dc.w 0
  12508.  
  12509.  dc.w bpl6ptl
  12510. pl6l
  12511.  dc.w 0
  12512.  
  12513.  dc.w bpl7pth
  12514. pl7h
  12515.  dc.w 0
  12516.  
  12517.  dc.w bpl7ptl
  12518. pl7l
  12519.  dc.w 0
  12520.  
  12521.  dc.w bpl8pth
  12522. pl8h
  12523.  dc.w 0
  12524.  
  12525.  dc.w bpl8ptl
  12526. pl8l
  12527.  dc.w 0
  12528.  
  12529.  
  12530. val SET $2c
  12531. SCRMODULOS:
  12532.  REPT 232
  12533.  dc.b val,1,$ff,$fe
  12534.  dc.w $108,0
  12535.  dc.w $10a,0
  12536.  dc.b val,$df,$ff,$fe
  12537. val SET (val+1)&$ff
  12538.  ENDR
  12539.  
  12540.  dc.w $108,0,$10a,0
  12541.  dc.w $2401,$ff00
  12542.  dc.w ddfstop,$c8
  12543.  dc.w bplcon0,$9201
  12544.  dc.w bpl1ptl
  12545. scroll:
  12546.  dc.w 0
  12547.  dc.w bpl1pth
  12548. scrolh:
  12549.  dc.w 0
  12550.  
  12551.  dc.w $106,$c40
  12552.  dc.w $180,0
  12553.  dc.w $182,$f0
  12554. ; dc.w $108,40
  12555. ; dc.w $10a,40
  12556.  
  12557. ; dc.w $80
  12558. ;JUMPBACKH:
  12559. ; dc.w 0
  12560. ; dc.w $82
  12561. ;JUMPBACKL:
  12562. ; dc.w 0
  12563.  
  12564. ; dc.w $8a,0
  12565.  
  12566.  dc.w $ffff,$fffe
  12567.  dc.w $ffff,$fffe
  12568.  
  12569. PALETTEBIT:
  12570.  incbin "256palette"
  12571.  dc.w $ffff,$fffe
  12572.  
  12573. yposcop:
  12574. ; dc.w $2a11,$fffe
  12575. ; dc.w $8a,0
  12576.  
  12577. ; ds.l 104*12
  12578.  
  12579. ;colbars:
  12580. ;val SET $2a
  12581. ; dcb.l 104*80,$1fe0000
  12582. ; dc.w $106,$c42
  12583. ; 
  12584. ; dc.w $80
  12585. ;pch1:
  12586. ; dc.w 0
  12587. ; dc.w $82
  12588. ;pcl1:
  12589. ; dc.w 0 
  12590. ; 
  12591. ; dc.w $88,0
  12592. ; 
  12593. ; dc.w $ffff,$fffe       ; End copper list.
  12594.  
  12595. ; ds.l 104*12
  12596.  
  12597.  
  12598. ;colbars2:
  12599. ;val SET $2a
  12600. ; dcb.l 104*80,$1fe0000
  12601. ; 
  12602. ; dc.w $106,$c42
  12603. ; 
  12604. ; dc.w $80
  12605. ;pch2:
  12606. ; dc.w 0
  12607. ; dc.w $82
  12608. ;pcl2:
  12609. ; dc.w 0
  12610. ; 
  12611. ; dc.w $88,0
  12612. ; 
  12613. ; dc.w $ffff,$fffe       ; End copper list.
  12614.  
  12615. ; ds.l 104*10
  12616.  
  12617. NullCopper:
  12618.  dc.w $ffff,$fffe
  12619.  
  12620. hitcol: dc.l 0
  12621.  
  12622. old: dc.l 0
  12623.  
  12624.  CNOP 0,64
  12625. SCROLLSCRN: ds.l 20*16
  12626.  
  12627. SCROLLOFFSET: dc.w 0
  12628. SCROLLTIMER: dc.w 100
  12629. SCROLLDIRECTION: dc.w 1
  12630. SCROLLXPOS: dc.w 0
  12631. SCROLLPOINTER: dc.l testscroll
  12632. ENDSCROLL: dc.l endtestscroll
  12633.  
  12634. testscroll:
  12635. ;      12345678901234567890123456789012345678901234567890123456789012345678901234567890
  12636. ; dc.b "The Quick Brown Fox Jumped Over The Lazy Dog!                                   "
  12637. ; dc.b "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ                            "
  12638. ; dc.b "The Quick Brown Fox Jumped Over The Lazy Dog!                                   "
  12639.  
  12640. BLANKSCROLL:
  12641.  dc.b "                                                                                "
  12642. endtestscroll: 
  12643.  
  12644. prot5: dc.w 0
  12645. PanelCop:
  12646.  
  12647.  dc.w $80
  12648. och:
  12649.  dc.w 0
  12650.  dc.w $82
  12651. ocl:
  12652.  dc.w 0
  12653.  
  12654. statskip:
  12655.  dc.w $1fe,0
  12656.  dc.w $1fe,0
  12657.  
  12658.  dc.w $10c,0
  12659.  dc.w bplcon0,$1201
  12660.  dc.w bpl1ptl
  12661. n1l:
  12662.  dc.w 0
  12663.  dc.w bpl1pth
  12664. n1h:
  12665.  dc.w 0
  12666.  dc.w $108,-24
  12667. ; incbin "Panelpal"
  12668.  
  12669.  dc.w bpl2pth
  12670. p2h
  12671.  dc.w 0
  12672.  
  12673.  dc.w bpl2ptl
  12674. p2l
  12675.  dc.w 0
  12676.  
  12677.  dc.w bpl3pth
  12678. p3h
  12679.  dc.w 0
  12680.  
  12681.  dc.w bpl3ptl
  12682. p3l
  12683.  dc.w 0
  12684.  
  12685.  dc.w bpl4pth
  12686. p4h
  12687.  dc.w 0
  12688.  dc.w bpl4ptl
  12689. p4l
  12690.  dc.w 0
  12691.  dc.w bpl5pth
  12692. p5h
  12693.  dc.w 0
  12694.  dc.w bpl5ptl
  12695. p5l
  12696.  dc.w 0
  12697.  dc.w bpl6pth
  12698. p6h
  12699.  dc.w 0
  12700.  dc.w bpl6ptl
  12701. p6l
  12702.  dc.w 0
  12703.  dc.w bpl7pth
  12704. p7h
  12705.  dc.w 0
  12706.  dc.w bpl7ptl
  12707. p7l
  12708.  dc.w 0
  12709.  dc.w bpl8pth
  12710. p8h
  12711.  dc.w 0
  12712.  dc.w bpl8ptl
  12713. p8l
  12714.  dc.w 0
  12715.  
  12716.  
  12717.  dc.w ddfstart,$38
  12718.  dc.w ddfstop,$b8
  12719.  dc.w diwstart,$2c81
  12720.  dc.w diwstop,$2cc1
  12721.  
  12722.  dc.w bplcon0
  12723. Panelcon: dc.w $0211
  12724.  dc.w bpl1pth
  12725. p1h
  12726.  dc.w 0
  12727.  
  12728.  dc.w bpl1ptl
  12729. p1l
  12730.  dc.w 0
  12731.  
  12732.  
  12733.  dc.w $108,40*7
  12734.  dc.w $10a,40*7
  12735.  
  12736.  dc.w $ffff,$fffe
  12737.  
  12738.  dc.w $180,$fff
  12739.  
  12740.  
  12741.  dc.w $f801,$ff00
  12742.  dc.w col1,$50
  12743.  dc.w $f901,$ff00
  12744.  dc.w col1,$90
  12745.  dc.w $fa01,$ff00
  12746.  dc.w col1,$f0
  12747.  dc.w $fb01,$ff00
  12748.  dc.w col1,$f0
  12749.  dc.w $fc01,$ff00
  12750.  dc.w col1,$90
  12751.  dc.w $fd01,$ff00
  12752.  dc.w col1,$50
  12753.  
  12754.  dc.w $fe01,$ff00
  12755.  dc.w col1,$fff
  12756.  
  12757.  dc.w $ffdf,$fffe
  12758.  dc.w $a01,$ff00
  12759.  dc.w bplcon0,$201
  12760.  
  12761. ; incbin "faces2cols"
  12762.  dc.w bpl1pth
  12763. f1h
  12764.  dc.w 0
  12765.  
  12766.  dc.w bpl1ptl
  12767. f1l
  12768.  dc.w 0
  12769.  
  12770.  dc.w bpl2pth
  12771. f2h
  12772.  dc.w 0
  12773.  
  12774.  dc.w bpl2ptl
  12775. f2l
  12776.  dc.w 0
  12777.  
  12778.  dc.w bpl3pth
  12779. f3h
  12780.  dc.w 0
  12781.  
  12782.  dc.w bpl3ptl
  12783. f3l
  12784.  dc.w 0
  12785.  
  12786.  dc.w bpl4pth
  12787. f4h
  12788.  dc.w 0
  12789.  dc.w bpl4ptl
  12790. f4l
  12791.  dc.w 0
  12792.  
  12793.  dc.w bpl5pth
  12794. f5h
  12795.  dc.w 0
  12796.  dc.w bpl5ptl
  12797. f5l
  12798.  dc.w 0
  12799.  
  12800.  dc.w $0c01,$ff00
  12801.  dc.w bplcon0,$5201
  12802.   
  12803.  dc.w $ffff,$fffe
  12804.  
  12805.  cnop 0,64
  12806. FacePlace:
  12807. ; ds.l 6*32*5
  12808.  
  12809. TEXTSCRN: dc.l 0
  12810.  
  12811. TEXTCOP:
  12812.  dc.w intreq,$8030
  12813.  
  12814.  dc.w spr0ptl
  12815. txs0l:
  12816.  dc.w 0
  12817.  dc.w spr0pth
  12818. txs0h:
  12819.  dc.w 0
  12820.  dc.w spr1ptl
  12821. txs1l:
  12822.  dc.w 0
  12823.  dc.w spr1pth
  12824. txs1h:
  12825.  dc.w 0
  12826.  dc.w spr2ptl
  12827. txs2l:
  12828.  dc.w 0
  12829.  dc.w spr2pth
  12830. txs2h:
  12831.  dc.w 0
  12832.  dc.w spr3ptl
  12833. txs3l:
  12834.  dc.w 0
  12835.  dc.w spr3pth
  12836. txs3h:
  12837.  dc.w 0
  12838.  dc.w spr4ptl
  12839. txs4l:
  12840.  dc.w 0
  12841.  dc.w spr4pth
  12842. txs4h:
  12843.  dc.w 0
  12844.  dc.w spr5ptl
  12845. txs5l:
  12846.  dc.w 0
  12847.  dc.w spr5pth
  12848. txs5h:
  12849.  dc.w 0
  12850.  dc.w spr6ptl
  12851. txs6l:
  12852.  dc.w 0
  12853.  dc.w spr6pth
  12854. txs6h:
  12855.  dc.w 0
  12856.  dc.w spr7ptl
  12857. txs7l:
  12858.  dc.w 0
  12859.  dc.w spr7pth
  12860. txs7h:
  12861.  dc.w 0
  12862.  
  12863.  
  12864.  dc.w $10c,$0088
  12865.  
  12866.  dc.w $1fc,$f
  12867.  dc.w diwstart,$2c81    ; Top left corner of screen.
  12868.  dc.w diwstop,$2cc1     ; Bottom right corner of screen.
  12869.  dc.w ddfstart,$38      ; Data fetch start.
  12870.  dc.w ddfstop,$c8       ; Data fetch stop.
  12871.  
  12872.  dc.w bplcon0
  12873. TSCP:
  12874.  dc.w $9201
  12875.  
  12876.  dc.w $106,$c40
  12877.  
  12878.  dc.w $2a01,$ff00
  12879.  
  12880.  dc.w col0,0
  12881.  dc.w col1
  12882. TOPLET:
  12883. TXTCOLL:
  12884.  dc.w 0
  12885.   dc.w col2
  12886. BOTLET:
  12887.  dc.w 0
  12888.  dc.w col3
  12889. ALLTEXT:
  12890.  dc.w $fff
  12891.  dc.w $106,$e40
  12892.  dc.w col3
  12893. ALLTEXTLOW:
  12894.  dc.w $0
  12895.  
  12896.  
  12897.  dc.w bpl1pth
  12898. TSPTh:
  12899.  dc.w 0
  12900.  dc.w bpl1ptl
  12901. TSPTl:
  12902.  dc.w 0
  12903.  
  12904.  dc.w bpl2pth
  12905. TSPTh2:
  12906.  dc.w 0
  12907.  dc.w bpl2ptl
  12908. TSPTl2:
  12909.  dc.w 0
  12910.  
  12911.  
  12912.  dc.w $108,0
  12913.  dc.w $10a,0
  12914.  
  12915.  dc.w $ffff,$fffe
  12916.  
  12917. ********************************************
  12918. * Stuff you don't have to worry about yet. *
  12919. ********************************************
  12920.  
  12921. closeeverything:
  12922.  
  12923. ; jsr mt_end
  12924.  
  12925.  move.l #nullcop,d0
  12926. ; move.l old,d0
  12927.  
  12928.  
  12929. ;charlie  
  12930.  move.l d0,$dff080     ; Restore old copper list.
  12931.  move.w d0,ocl
  12932.  swap d0
  12933.  move.w d0,och
  12934.  
  12935. ; move.l doslib,a6
  12936. ; move.l #4,d1
  12937. ; jsr -198(a6)
  12938.  
  12939. ; move.l doslib,d0
  12940. ; move.l d0,a1
  12941. ; move.l 4.w,a6
  12942. ; jsr CloseLib(a6)
  12943.  
  12944.  move.l #$dff000,a6
  12945.  move.w #$8020,dmacon(a6)
  12946.  move.w #$f,dmacon(a6)
  12947.  
  12948. ; move.l 4.w,a6
  12949. ; lea VBLANKInt,a1
  12950. ; moveq #INTB_COPER,d0
  12951. ; jsr _LVORemIntServer(a6)
  12952.  
  12953. ; IFEQ CD32VER
  12954. ; move.l OLDKINT,$68.w
  12955. ; ENDC
  12956. ; move.w saveinters,d0
  12957. ; or.w #$c000,d0
  12958. ; move.w d0,intena(a6)
  12959.  clr.w $dff0a8
  12960.  clr.w $dff0b8
  12961.  clr.w $dff0c8
  12962.  clr.w $dff0d8
  12963.  
  12964.  
  12965. ; move.l oldview,a1
  12966. ; move.l a1,d0
  12967. ; move.l gfxbase,a6
  12968. ; jsr -$de(a6)
  12969.  
  12970. ; cmp.b #'s',mors
  12971. ; beq.s leaveold
  12972. ; move.w #$f8e,$dff1dc
  12973. ;leaveold:
  12974.  
  12975.  jsr RELEASELEVELMEM
  12976.  jsr RELEASESCRNMEM
  12977.  
  12978.  move.l #0,d0
  12979.  
  12980.  rts
  12981.  
  12982.  
  12983.  
  12984. intbase: dc.l 0
  12985. gfxbase: dc.l 0
  12986. oldview: dc.l 0
  12987.  
  12988. stuff:
  12989.  
  12990.     PRSDL
  12991.     Lea    gfxname(pc),a1    
  12992.     Moveq.l    #0,d0
  12993.     Move.l    $4.w,a6    
  12994.     Jsr    -$228(a6)
  12995.     add.w d1,RVAL1
  12996.     Move.l     d0,gfxbase
  12997.     Move.l    d0,a6                Use As Base Reg
  12998.     Move.l    34(a6),oldview
  12999.     move.l 38(a6),old
  13000.     rts
  13001.  
  13002. gfxname dc.b "graphics.library",0
  13003.  even
  13004. INTUNAME    dc.b    "intuition.library",0
  13005.  
  13006.  even
  13007.  
  13008.  
  13009.  cnop 0,64
  13010.  
  13011. Panel:
  13012.  dc.l 0
  13013.  
  13014. TimerScr: 
  13015. ;ds.b 40*64
  13016.  
  13017. scrntab:
  13018.  ds.b 16
  13019. val SET 32
  13020.  REPT 96
  13021.  dc.b val,val,val
  13022. val SET val+1
  13023.  ENDR
  13024.  ds.b 16
  13025.  
  13026. smallscrntab:
  13027. val SET 32
  13028.  REPT 96
  13029.  dc.b val,val
  13030. val SET val+1
  13031.  ENDR
  13032.  
  13033.  cnop 0,64
  13034. scrn:
  13035.  dc.l 0
  13036. ; incbin "ab3:includes/newborderRAW"
  13037. ; ds.b 80
  13038. scrn2:
  13039.  dc.l 0
  13040.  
  13041. ;flib:
  13042. ; incbin "ab3:includes/newborderRAW"
  13043. ; ds.b 80
  13044. ;flib2:
  13045. ; incbin "ab3:includes/newborderRAW"
  13046. ; ds.b 80
  13047.  
  13048. ; incbin "ab3:includes/newborderRAW"
  13049. ; ds.b 80
  13050.  
  13051. SCRNDRAWPT: dc.l 0
  13052. SCRNSHOWPT: dc.l 0
  13053.  
  13054. ; dcb.l 8,$33333333
  13055. ; dc.l 0
  13056. ; dc.l 0
  13057. ; 
  13058. ; dcb.l 8,$0f0f0f0f
  13059. ; dc.l 0
  13060. ; dc.l 0
  13061. ;
  13062. ; dcb.l 8,$00ff00ff
  13063. ; dc.l 0
  13064. ; dc.l 0
  13065. ; 
  13066. ; dcb.l 8,$0000ffff
  13067. ; dc.l 0
  13068. ; dc.l 0
  13069. ; 
  13070. ; dc.l 0,-1,0,-1,0,-1,0,-1
  13071. ; dc.l 0
  13072. ; dc.l 0
  13073. ; 
  13074. ; dc.l -1,-1,0,0,-1,-1,0,0
  13075. ; dc.l 0
  13076. ; dc.l 0
  13077. ; 
  13078. ; dc.l 0,0,-1,-1,-1,-1,-1,-1
  13079. ; dc.l 0
  13080. ; dc.l 0
  13081.  
  13082. NumTimes: dc.l 0
  13083. TimeCount: dc.l 0
  13084. oldtime: dc.l 0
  13085. counting: dc.b 0
  13086. oktodisplay: dc.b 0
  13087.  
  13088. INITTIMER:
  13089.  move.l #0,TimeCount
  13090.  move.l #0,NumTimes
  13091.  rts
  13092.  
  13093. STARTCOUNT:
  13094.  move.l d0,-(a7)
  13095.  move.l $dff004,d0
  13096.  and.l #$1ffff,d0
  13097.  move.l d0,oldtime
  13098.  st counting
  13099.  move.l (a7)+,d0
  13100.  rts
  13101.  
  13102. STOPCOUNT:
  13103.  move.l d0,-(a7)
  13104.  move.l $dff004,d0
  13105.  and.l #$1ffff,d0
  13106.  
  13107.  sub.l oldtime,d0
  13108.  cmp.l #-256,d0
  13109.  bge.s okcount
  13110.  add.l #313*256,d0
  13111. okcount:
  13112.  add.l d0,TimeCount
  13113.  addq.l #1,NumTimes
  13114.  clr.b counting
  13115.  move.l (a7)+,d0
  13116.  rts
  13117.  
  13118. STOPCOUNTNOADD:
  13119.  move.l d0,-(a7)
  13120.  move.l $dff004,d0
  13121.  and.l #$1ffff,d0
  13122.  
  13123.  sub.l oldtime,d0
  13124.  cmp.l #-256,d0
  13125.  bge.s okcount2
  13126.  add.l #313*256,d0
  13127. okcount2:
  13128.  add.l d0,TimeCount
  13129.  clr.b counting
  13130.  move.l (a7)+,d0
  13131.  rts
  13132.  
  13133. maxbot: dc.w 0
  13134. tstneg: dc.l 0
  13135.  
  13136. STOPTIMER:
  13137.  st oktodisplay
  13138.  rts
  13139.  
  13140. digits: incbin "numbers.inc"
  13141.  
  13142. COMPACTMAP: ds.l 257
  13143.  
  13144. BIGMAP: ds.l 256*10
  13145.  
  13146.  Section Sounds,CODE_C
  13147.  
  13148. nullcop:
  13149.  dc.w $106,$c40
  13150.  dc.w $180,0 
  13151.  dc.w $100,$0
  13152.  dc.w $ffff,$fffe
  13153.  
  13154. Scream:
  13155. ; incbin "ab3:sounds/Scream"
  13156. ; ds.w 100
  13157. EndScream:
  13158. LowScream:
  13159. ; incbin "ab3:sounds/LowScream"
  13160. ; ds.w 100
  13161. EndLowScream:
  13162. BaddieGun:
  13163. ; incbin "ab3:sounds/BaddieGun"
  13164. EndBaddieGun:
  13165. bass:
  13166. ; incbin "ab3:sounds/backbass+drum"
  13167. bassend:
  13168. Shoot:
  13169. ; incbin "ab3:sounds/fire!"
  13170. EndShoot:
  13171. Munch:
  13172. ; incbin "ab3:sounds/munch"
  13173. EndMunch:
  13174. PooGun:
  13175. ; incbin "ab3:sounds/shoot.dm"
  13176. EndPooGun:
  13177. Collect:
  13178. ; incbin "ab3:sounds/collect"
  13179. EndCollect:
  13180. DoorNoise:
  13181. ; incbin "ab3:sounds/newdoor"
  13182. EndDoorNoise:
  13183. Stomp:
  13184. ; incbin "ab3:sounds/footstep3"
  13185. EndStomp:
  13186. SwitchNoise:
  13187. ; incbin "ab3:sounds/switch"
  13188. EndSwitch:
  13189. Reload:
  13190. ; incbin "ab3:sounds/switch1.SFX"
  13191. EndReload:
  13192.  
  13193. CHEATFRAME:
  13194.  dc.b 26,20,33,27,17,12
  13195. ENDCHEAT:
  13196.  
  13197. NoAmmo:
  13198. ; incbin "ab3:sounds/noammo"
  13199. EndNoAmmo:
  13200. Splotch:
  13201. ; incbin "ab3:sounds/splotch"
  13202. EndSplotch:
  13203. SplatPop:
  13204. ; incbin "ab3:sounds/splatpop"
  13205. EndSplatPop:
  13206. Boom:
  13207. ; incbin "ab3:sounds/boom"
  13208. EndBoom:
  13209. Hiss:
  13210. ; incbin "ab3:sounds/newhiss"
  13211. EndHiss:
  13212. Howl1:
  13213. ; incbin "ab3:sounds/howl1"
  13214. EndHowl1:
  13215. Howl2:
  13216. ; incbin "ab3:sounds/howl2"
  13217. EndHowl2:
  13218. Pant:
  13219. ; incbin "ab3:sounds/pant"
  13220. EndPant:
  13221. Whoosh:
  13222. ; incbin "ab3:sounds/whoosh"
  13223. EndWhoosh:
  13224. ROAR:
  13225. ; incbin "ab3:sounds/bigscream"
  13226. EndROAR
  13227. whoosh:
  13228. ; incbin "ab3:sounds/flame"
  13229. Endwhoosh:
  13230.  SECTION music,code_c
  13231.  
  13232. UseAllChannels: dc.w 0
  13233.  
  13234. mt_init:
  13235.  
  13236.  
  13237.     move.l    mt_data,a0
  13238.     move.l    a0,a1
  13239.     add.l    #$3b8,a1
  13240.     moveq    #$7f,d0
  13241.     moveq    #0,d1
  13242. mt_loop:move.l    d1,d2
  13243.     subq.w    #1,d0
  13244. mt_lop2:move.b    (a1)+,d1
  13245.     cmp.b    d2,d1
  13246.     bgt.s    mt_loop
  13247.     dbf    d0,mt_lop2
  13248.     addq.b    #1,d2
  13249.  
  13250.     lea    mt_samplestarts(pc),a1
  13251.     asl.l    #8,d2
  13252.     asl.l    #2,d2
  13253.     add.l    #$43c,d2
  13254.     add.l    a0,d2
  13255.     move.l    d2,a2
  13256.     moveq    #$1e,d0
  13257. mt_lop3:
  13258.     clr.l    (a2)
  13259.     move.l    a2,(a1)+
  13260.     moveq    #0,d1
  13261.     move.w    42(a0),d1
  13262.     asl.l    #1,d1
  13263.     add.l    d1,a2
  13264.     add.l    #$1e,a0
  13265.     dbf    d0,mt_lop3
  13266.  
  13267.     or.b    #$2,$bfe001
  13268.     move.b    #$6,mt_speed
  13269.     clr.w    $dff0a8
  13270.     clr.w    $dff0b8
  13271.     clr.w    $dff0c8
  13272.     clr.w    $dff0d8
  13273.     clr.b    mt_songpos
  13274.     clr.b    mt_counter
  13275.     clr.w    mt_pattpos
  13276.     rts
  13277.  
  13278. mt_end:    clr.w    $dff0a8
  13279.     clr.w    $dff0b8
  13280.     clr.w    $dff0c8
  13281.     clr.w    $dff0d8
  13282.     move.w    #$f,$dff096
  13283.     rts
  13284.  
  13285. mt_music:
  13286.     movem.l    d0-d4/a0-a3/a5-a6,-(a7)
  13287.     move.l    mt_data,a0
  13288.     addq.b    #$1,mt_counter
  13289.     move.b    mt_counter,D0
  13290.     cmp.b    mt_speed,D0
  13291.     blt.s    mt_nonew
  13292.     clr.b    mt_counter
  13293.     bra    mt_getnew
  13294.  
  13295. mt_nonew:
  13296.     lea    mt_voice1(pc),a6
  13297.     lea    $dff0a0,a5
  13298.     bsr    mt_checkcom
  13299.     lea    mt_voice2(pc),a6
  13300.     lea    $dff0b0,a5
  13301.     bsr    mt_checkcom
  13302. ;    tst.b UseAllChannels
  13303. ;    beq mt_endr
  13304.      lea    mt_voice3(pc),a6
  13305.     lea    $dff0c0,a5
  13306.     bsr    mt_checkcom
  13307.     lea    mt_voice4(pc),a6
  13308.     lea    $dff0d0,a5
  13309.     bsr    mt_checkcom
  13310.     bra    mt_endr
  13311.  
  13312. mt_arpeggio:
  13313.     moveq    #0,d0
  13314.     move.b    mt_counter,d0
  13315.     divs    #$3,d0
  13316.     swap    d0
  13317.     cmp.w    #$0,d0
  13318.     beq.s    mt_arp2
  13319.     cmp.w    #$2,d0
  13320.     beq.s    mt_arp1
  13321.  
  13322.     moveq    #0,d0
  13323.     move.b    $3(a6),d0
  13324.     lsr.b    #4,d0
  13325.     bra.s    mt_arp3
  13326. mt_arp1:moveq    #0,d0
  13327.     move.b    $3(a6),d0
  13328.     and.b    #$f,d0
  13329.     bra.s    mt_arp3
  13330. mt_arp2:move.w    $10(a6),d2
  13331.     bra.s    mt_arp4
  13332. mt_arp3:asl.w    #1,d0
  13333.     moveq    #0,d1
  13334.     move.w    $10(a6),d1
  13335.     lea    mt_periods(pc),a0
  13336.     moveq    #$24,d7
  13337. mt_arploop:
  13338.     move.w    (a0,d0.w),d2
  13339.     cmp.w    (a0),d1
  13340.     bge.s    mt_arp4
  13341.     addq.l    #2,a0
  13342.     dbf    d7,mt_arploop
  13343.     rts
  13344. mt_arp4:move.w    d2,$6(a5)
  13345.     rts
  13346.  
  13347. mt_getnew:
  13348.     move.l    mt_data,a0
  13349.     move.l    a0,a3
  13350.     move.l    a0,a2
  13351.     add.l    #$c,a3
  13352.     add.l    #$3b8,a2
  13353.     add.l    #$43c,a0
  13354.  
  13355.     moveq    #0,d0
  13356.     move.l    d0,d1
  13357.     move.b    mt_songpos,d0
  13358.     move.b    (a2,d0.w),d1
  13359.     asl.l    #8,d1
  13360.     asl.l    #2,d1
  13361.     add.w    mt_pattpos,d1
  13362.     clr.w    mt_dmacon
  13363.  
  13364.     lea    $dff0a0,a5
  13365.     lea    mt_voice1(pc),a6
  13366.     bsr    mt_playvoice
  13367.     lea    $dff0b0,a5
  13368.     lea    mt_voice2(pc),a6
  13369.     bsr    mt_playvoice
  13370. ;    tst.b UseAllChannels
  13371. ;    beq mt_setdma
  13372.     lea    $dff0c0,a5
  13373.     lea    mt_voice3(pc),a6
  13374.     bsr    mt_playvoice
  13375.     lea    $dff0d0,a5
  13376.     lea    mt_voice4(pc),a6
  13377.     bsr    mt_playvoice
  13378.     bra    mt_setdma
  13379.  
  13380. PROTCALC:
  13381. ;    include "ab3:source_4000/protcalc.s"
  13382.     incbin "ab3:includes/protcalc.bin"
  13383. ENDPROTCALC:
  13384.  
  13385. mt_playvoice:
  13386.     move.l    (a0,d1.l),(a6)
  13387.     addq.l    #4,d1
  13388.     moveq    #0,d2
  13389.     move.b    $2(a6),d2
  13390.     and.b    #$f0,d2
  13391.     lsr.b    #4,d2
  13392.     move.b    (a6),d0
  13393.     and.b    #$f0,d0
  13394.     or.b    d0,d2
  13395.     tst.b    d2
  13396.     beq.s    mt_setregs
  13397.     moveq    #0,d3
  13398.     lea    mt_samplestarts(pc),a1
  13399.     move.l    d2,d4
  13400.     subq.l    #$1,d2
  13401.     asl.l    #2,d2
  13402.     mulu    #$1e,d4
  13403.     move.l    (a1,d2.l),$4(a6)
  13404.     move.w    (a3,d4.l),$8(a6)
  13405.     move.w    $2(a3,d4.l),$12(a6)
  13406.     move.w    $4(a3,d4.l),d3
  13407.     tst.w    d3
  13408.     beq.s    mt_noloop
  13409.     move.l    $4(a6),d2
  13410.     asl.w    #1,d3
  13411.     add.l    d3,d2
  13412.     move.l    d2,$a(a6)
  13413.     move.w    $4(a3,d4.l),d0
  13414.     add.w    $6(a3,d4.l),d0
  13415.     move.w    d0,8(a6)
  13416.     move.w    $6(a3,d4.l),$e(a6)
  13417.     move.w    $12(a6),d0
  13418.     asr.w #2,d0
  13419.     move.w d0,$8(a5)
  13420.     bra.s    mt_setregs
  13421. mt_noloop:
  13422.     move.l    $4(a6),d2
  13423.     add.l    d3,d2
  13424.     move.l    d2,$a(a6)
  13425.     move.w    $6(a3,d4.l),$e(a6)
  13426.     move.w    $12(a6),d0
  13427.     asr.w #2,d0
  13428.     move.w d0,$8(a5)
  13429. mt_setregs:
  13430.     move.w    (a6),d0
  13431.     and.w    #$fff,d0
  13432.     beq    mt_checkcom2
  13433.     move.b    $2(a6),d0
  13434.     and.b    #$F,d0
  13435.     cmp.b    #$3,d0
  13436.     bne.s    mt_setperiod
  13437.     bsr    mt_setmyport
  13438.     bra    mt_checkcom2
  13439. mt_setperiod:
  13440.     move.w    (a6),$10(a6)
  13441.     and.w    #$fff,$10(a6)
  13442.     move.w    $14(a6),d0
  13443.     move.w    d0,$dff096
  13444.     clr.b    $1b(a6)
  13445.  
  13446.     move.l    $4(a6),(a5)
  13447.     move.w    $8(a6),$4(a5)
  13448.     move.w    $10(a6),d0
  13449.     and.w    #$fff,d0
  13450.     move.w    d0,$6(a5)
  13451.     move.w    $14(a6),d0
  13452.     or.w    d0,mt_dmacon
  13453.     bra    mt_checkcom2
  13454.  
  13455. mt_setdma:
  13456.      move.w #250,d0
  13457. mt_wait:
  13458.      add.w #1,testchip
  13459.      dbra d0,mt_wait
  13460.     move.w    mt_dmacon,d0
  13461.     or.w    #$8000,d0
  13462.     and.w #%1111111111110011,d0
  13463.     move.w    d0,$dff096
  13464.     move.w #250,d0
  13465. mt_wait2:
  13466.     add.w #1,testchip
  13467.     dbra    d0,mt_wait2
  13468.     lea    $dff000,a5
  13469.     tst.b UseAllChannels
  13470.     beq.s noall
  13471.     lea    mt_voice4(pc),a6
  13472.     move.l    $a(a6),$d0(a5)
  13473.     move.w    $e(a6),$d4(a5)
  13474.     lea    mt_voice3(pc),a6
  13475.     move.l    $a(a6),$c0(a5)
  13476.     move.w    $e(a6),$c4(a5)
  13477. noall:
  13478.     lea    mt_voice2(pc),a6
  13479.     move.l    $a(a6),$b0(a5)
  13480.     move.w    $e(a6),$b4(a5)
  13481.     lea    mt_voice1(pc),a6
  13482.     move.l    $a(a6),$a0(a5)
  13483.     move.w    $e(a6),$a4(a5)
  13484.  
  13485.     add.w    #$10,mt_pattpos
  13486.     cmp.w    #$400,mt_pattpos
  13487.     bne.s    mt_endr
  13488. mt_nex:    clr.w    mt_pattpos
  13489.     clr.b    mt_break
  13490.     addq.b    #1,mt_songpos
  13491.     and.b    #$7f,mt_songpos
  13492.     move.b    mt_songpos,d1
  13493. ;    cmp.b    mt_data+$3b6,d1
  13494. ;    bne.s    mt_endr
  13495. ;    move.b    mt_data+$3b7,mt_songpos
  13496. mt_endr:tst.b    mt_break
  13497.     bne.s    mt_nex
  13498.     movem.l    (a7)+,d0-d4/a0-a3/a5-a6
  13499.     rts
  13500.  
  13501. mt_setmyport:
  13502.     move.w    (a6),d2
  13503.     and.w    #$fff,d2
  13504.     move.w    d2,$18(a6)
  13505.     move.w    $10(a6),d0
  13506.     clr.b    $16(a6)
  13507.     cmp.w    d0,d2
  13508.     beq.s    mt_clrport
  13509.     bge.s    mt_rt
  13510.     move.b    #$1,$16(a6)
  13511.     rts
  13512. mt_clrport:
  13513.     clr.w    $18(a6)
  13514. mt_rt:    rts
  13515.  
  13516. CODESTORE: dc.l 0
  13517.  
  13518. mt_myport:
  13519.     move.b    $3(a6),d0
  13520.     beq.s    mt_myslide
  13521.     move.b    d0,$17(a6)
  13522.     clr.b    $3(a6)
  13523. mt_myslide:
  13524.     tst.w    $18(a6)
  13525.     beq.s    mt_rt
  13526.     moveq    #0,d0
  13527.     move.b    $17(a6),d0
  13528.     tst.b    $16(a6)
  13529.     bne.s    mt_mysub
  13530.     add.w    d0,$10(a6)
  13531.     move.w    $18(a6),d0
  13532.     cmp.w    $10(a6),d0
  13533.     bgt.s    mt_myok
  13534.     move.w    $18(a6),$10(a6)
  13535.     clr.w    $18(a6)
  13536. mt_myok:move.w    $10(a6),$6(a5)
  13537.     rts
  13538. mt_mysub:
  13539.     sub.w    d0,$10(a6)
  13540.     move.w    $18(a6),d0
  13541.     cmp.w    $10(a6),d0
  13542.     blt.s    mt_myok
  13543.     move.w    $18(a6),$10(a6)
  13544.     clr.w    $18(a6)
  13545.     move.w    $10(a6),$6(a5)
  13546.     rts
  13547.  
  13548. mt_vib:    move.b    $3(a6),d0
  13549.     beq.s    mt_vi
  13550.     move.b    d0,$1a(a6)
  13551.  
  13552. mt_vi:    move.b    $1b(a6),d0
  13553.     lea    mt_sin(pc),a4
  13554.     lsr.w    #$2,d0
  13555.     and.w    #$1f,d0
  13556.     moveq    #0,d2
  13557.     move.b    (a4,d0.w),d2
  13558.     move.b    $1a(a6),d0
  13559.     and.w    #$f,d0
  13560.     mulu    d0,d2
  13561.     lsr.w    #$6,d2
  13562.     move.w    $10(a6),d0
  13563.     tst.b    $1b(a6)
  13564.     bmi.s    mt_vibmin
  13565.     add.w    d2,d0
  13566.     bra.s    mt_vib2
  13567. mt_vibmin:
  13568.     sub.w    d2,d0
  13569. mt_vib2:move.w    d0,$6(a5)
  13570.     move.b    $1a(a6),d0
  13571.     lsr.w    #$2,d0
  13572.     and.w    #$3c,d0
  13573.     add.b    d0,$1b(a6)
  13574.     rts
  13575.  
  13576. mt_nop:    move.w    $10(a6),$6(a5)
  13577.     rts
  13578.  
  13579.  
  13580. mt_checkcom:
  13581.     move.w    $2(a6),d0
  13582.     and.w    #$fff,d0
  13583.     beq.s    mt_nop
  13584.     move.b    $2(a6),d0
  13585.     and.b    #$f,d0
  13586.     tst.b    d0
  13587.     beq    mt_arpeggio
  13588.     cmp.b    #$1,d0
  13589.     beq.s    mt_portup
  13590.     cmp.b    #$2,d0
  13591.     beq    mt_portdown
  13592.     cmp.b    #$3,d0
  13593.     beq    mt_myport
  13594.     cmp.b    #$4,d0
  13595.     beq    mt_vib
  13596.     move.w    $10(a6),$6(a5)
  13597.     cmp.b    #$a,d0
  13598.     beq.s    mt_volslide
  13599.     rts
  13600.  
  13601. mt_volslide:
  13602.     moveq    #0,d0
  13603.     move.b    $3(a6),d0
  13604.     lsr.b    #4,d0
  13605.     tst.b    d0
  13606.     beq.s    mt_voldown
  13607.     add.w    d0,$12(a6)
  13608.     cmp.w    #$40,$12(a6)
  13609.     bmi.s    mt_vol2
  13610.     move.w    #$40,$12(a6)
  13611. mt_vol2:move.w    $12(a6),d0
  13612.     asr.w #2,d0
  13613.     move.w d0,$8(a5)
  13614.     rts
  13615.  
  13616. mt_voldown:
  13617.     moveq    #0,d0
  13618.     move.b    $3(a6),d0
  13619.     and.b    #$f,d0
  13620.     sub.w    d0,$12(a6)
  13621.     bpl.s    mt_vol3
  13622.     clr.w    $12(a6)
  13623. mt_vol3:move.w    $12(a6),d0
  13624.     asr.w #2,d0
  13625.     move.w d0,$8(a5)
  13626.     rts
  13627.  
  13628. mt_portup:
  13629.     moveq    #0,d0
  13630.     move.b    $3(a6),d0
  13631.     sub.w    d0,$10(a6)
  13632.     move.w    $10(a6),d0
  13633.     and.w    #$fff,d0
  13634.     cmp.w    #$71,d0
  13635.     bpl.s    mt_por2
  13636.     and.w    #$f000,$10(a6)
  13637.     or.w    #$71,$10(a6)
  13638. mt_por2:move.w    $10(a6),d0
  13639.     and.w    #$fff,d0
  13640.     move.w    d0,$6(a5)
  13641.     rts
  13642.  
  13643. mt_portdown:
  13644.     clr.w    d0
  13645.     move.b    $3(a6),d0
  13646.     add.w    d0,$10(a6)
  13647.     move.w    $10(a6),d0
  13648.     and.w    #$fff,d0
  13649.     cmp.w    #$358,d0
  13650.     bmi.s    mt_por3
  13651.     and.w    #$f000,$10(a6)
  13652.     or.w    #$358,$10(a6)
  13653. mt_por3:move.w    $10(a6),d0
  13654.     and.w    #$fff,d0
  13655.     move.w    d0,$6(a5)
  13656.     rts
  13657.  
  13658. mt_checkcom2:
  13659.     move.b    $2(a6),d0
  13660.     and.b    #$f,d0
  13661.     cmp.b    #$e,d0
  13662.     beq.s    mt_setfilt
  13663.     cmp.b    #$d,d0
  13664.     beq.s    mt_pattbreak
  13665.     cmp.b    #$b,d0
  13666.     beq.s    mt_posjmp
  13667.     cmp.b    #$c,d0
  13668.     beq.s    mt_setvol
  13669.     cmp.b    #$f,d0
  13670.     beq.s    mt_setspeed
  13671.     rts
  13672.  
  13673. mt_setfilt:
  13674.     move.b    $3(a6),d0
  13675.     and.b    #$1,d0
  13676.     asl.b    #$1,d0
  13677.     and.b    #$fd,$bfe001
  13678.     or.b    d0,$bfe001
  13679.     rts
  13680. mt_pattbreak:
  13681.     not.b    mt_break
  13682.     rts
  13683. mt_posjmp:
  13684.     st reachedend
  13685.     move.b    $3(a6),d0
  13686.     subq.b    #$1,d0
  13687.     move.b    d0,mt_songpos
  13688.     not.b    mt_break
  13689.     rts
  13690. mt_setvol:
  13691.     cmp.b    #$40,$3(a6)
  13692.     ble.s    mt_vol4
  13693.     move.b    #$40,$3(a6)
  13694. mt_vol4:move.b    $3(a6),d0
  13695.     asr.w #2,d0
  13696.     move.w d0,$8(a5)
  13697.     rts
  13698. mt_setspeed:
  13699.     cmp.b    #$1f,$3(a6)
  13700.     ble.s    mt_sets
  13701.     move.b    #$1f,$3(a6)
  13702. mt_sets:move.b    $3(a6),d0
  13703.     beq.s    mt_rts2
  13704.     move.b    d0,mt_speed
  13705.     clr.b    mt_counter
  13706. mt_rts2:rts
  13707.  
  13708. mt_sin:
  13709.  DC.b $00,$18,$31,$4a,$61,$78,$8d,$a1,$b4,$c5,$d4,$e0,$eb,$f4,$fa,$fd
  13710.  DC.b $ff,$fd,$fa,$f4,$eb,$e0,$d4,$c5,$b4,$a1,$8d,$78,$61,$4a,$31,$18
  13711.  
  13712. mt_periods:
  13713.  DC.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c,$023a,$021a,$01fc,$01e0
  13714.  DC.w $01c5,$01ac,$0194,$017d,$0168,$0153,$0140,$012e,$011d,$010d,$00fe
  13715.  DC.w $00f0,$00e2,$00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097,$008f,$0087
  13716.  DC.w $007f,$0078,$0071,$0000,$0000
  13717.  
  13718. reachedend: dc.b 0
  13719. mt_speed:    DC.b    6
  13720. mt_songpos:    DC.b    0
  13721. mt_pattpos:    DC.w    0
  13722. mt_counter:    DC.b    0
  13723.  
  13724. mt_break:    DC.b    0
  13725. mt_dmacon:    DC.w    0
  13726. mt_samplestarts:DS.L    $1f
  13727. mt_voice1:    DS.w    10
  13728.         DC.w    1
  13729.         DS.w    3
  13730. mt_voice2:    DS.w    10
  13731.         DC.w    2
  13732.         DS.w    3
  13733. mt_voice3:    DS.w    10
  13734.         DC.w    4
  13735.         DS.w    3
  13736. mt_voice4:    DS.w    10
  13737.         DC.w    8
  13738.         DS.w    3
  13739.  
  13740. CHEATPTR: dc.l 0
  13741. CHEATNUM: dc.l 0
  13742.  
  13743. testchip: dc.w 0
  13744.  
  13745. ;/* End of File */
  13746. mt_data: dc.l 0
  13747. tstchip: dc.l 0
  13748.  include "SERIAL_NIGHTMARE"
  13749.  
  13750. ingame:
  13751. ; incbin "ab3:includes/ingame"
  13752. gameover: 
  13753. ;incbin "ab3:includes/gameover"
  13754. welldone: incbin "ab3:includes/newwelldone"
  13755.  
  13756.  
  13757.